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ABSTRACT 


This  thesis  is  a  two  player,  microcomputer  controlled, 
tactical  motion  analyzer  (TMA)  of  unit  movements.  TMA  is 
designed  to  be  used  in  either  a  manual  or  computer  driven 
wargame.  Written  in  the  computer  language  Pascal,  implemen¬ 
tation  is  designed  for  the  APPLE  II  computer.  The  program  is 
contained  on  two,  5  inch  floppy  diskettes.  Specific  unit 
characteristics  are  entered  into  the  database  by  the  users. 

Users  may  then  analyze  unit  movements  using  time-step  simulation. 
Data  transfer  between  computers  is  done  by  the  users  physically 
exchanging  diskettes.  The  game  may  be  replayed  or  saved 
and  continued  at  any  time.  The  program  logic  and  data  mani¬ 
pulation  are  discussed  in  detail  within  the  text  of  the 
thesis. 
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I.  INTRODUCTION 


The  purpose  of  this  thesis  is  to  provide  a  user  friendly, 
two  player,  microcomputer  controlled,  tactical  motion  analyzer 
(TMA)  of  unit  movements. 

Since  their  advent,  computers  have  been  used  by  the 
military  and  civilian  contractors  alike  in  an  attempt  to 
simulate  war  environments.  This  was  first  done  by  the 
vacuum-tube  computers  to  solve  firing  solutions  for  anti¬ 
aircraft  guns,  and  later  by  high  speed,  mainframe  computers 
to  simulate  complete  battles  and  even  war  scenarios.  Only 
recently  has  the  technology  been  available  to  do  similar 
applications  on  microcomputers.  Specifically,  memory  chip 
density  advances  have  to  be  the  most  significaht  contribution 
in  this  field. 

The  hardware  to  do  large  scale  wargaming  has  been 
available  for  several  years,  but  it  is  only  now  that  software 
development  is  approaching  the  sophistication  level  so  that 
non-computer  enthusiasts  can  sit  down  at  a  terminal  and 
successfully  interact  with  a  computer  wargame.  It  is  with 
this  in  mind  that  this  thesis  was  written.  A  primary  goal 
of  TMA  is  to  design  human  factors  and  ease  of  use  into  a 
game  as  it  is  written.  This  subject  is  discussed  in  depth 
in  chapter  III. 

Although  TMA  is  a  complete  program,  there  are  many 
unexplored  areas  that  could  enhance  it.  Chapter  VIII  lists 
some  suggestions  for  future  expansion. 
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In  order  to  use  the  TMA  program,  the  following  equipment 
is  required;  the  TMA  diskettes  (two  for  each  player),  two 
Apple  II  computers,  two  disk  drives  and  a  monitor  for  each 
machine. 

Prospective  users  of  this  program  may  include  anyone 
interested  in  observing  relative  unit  motion  while  interacting 
with  a  microcomputer.  Since  this  program  is  an  interactive, 
two  person  game,  these  individuals  will  be  able  to  test 
strategies  for  maneuvering  their  units.  Through  playing  the 
game  and  becoming  familiar  with  some  surface  vessel  tactics, 
it  is  hoped  that  this  program  will  be  of  some  educational 
benefit  to  U.S.  Navy  line  officers. 


II.  GOAL  OF  THE  TMA  PROGRAM 


! 

:  ■  A.  WARGAMES  IN  GENERAL 

The  author  has  had  some  limited  experience  with  TJ.S, 

I  Navy  funded,  commercially  produced,  interactive  computer 

wargames.  This  experience  is  restricted  to  the  Warfare 
Environment  Simulator  (WES).  WES  is  a  real-time  man- 
I  interface  discrete  time  step  simulation  for  analytical 

wargaming  applications  in  support  of  a  broad  range  of 
research  and  development  objectives.  WES  was  produced  by 
System  Development  Corporation  (SDC)  located  in  San  Diego, 
California.  WES  appears  to  do  what  it's  suppose  to  do, 
however,  it  also  has  some  very  difficult  characteristics. 
Specifically,  it  is  difficult  to  use.  A  variety  of  special 
commands  and  code  words  must  be  learned  before  playing  the 
game.  These  ai e  many  in  number  and  nonstandard  compared  to 
military  nomenclature.  In  many  cases  numerous  man-hours 
must  be  spent  in  becoming  familiar  with  these  terms  which 
are  most  often  germane  only  to  the  present  system. 

Many  computer  wargames  are  designed  for  implementation 
on  large,  fast  and  expensive  mainframe  computers.  This 
very  description  implies  a  limitation  for  its  users.  Due  to 
the  high  initial  costs  and  maintenance  expenses,  general 
user  availability  is  less  than  optimal.  Additionally, 
software  "experts'*  must  be  on  hand  to  answer  questions  and 
help  train  system  users.  This  makes  the  wargame  expensive 
to  run  and  maintain. 
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Another  problem  that  is  not  restricted  to  military 
wargames,  but  to  sophisticated  software  in  general  is  lack 
of  good  documentation!  Granted  that  software  engineers  who 
develop,  design,  write  and  test  programs  are  gifted  individuals, 
their  ability  to  write  user  instructions  for  the  layman  is 
suspect.  After  spending  months  and  sometimes  years  developing 
software  packages  it  is  understandable  that  these  same  people 
may  lose  perspective.  There  are  two  extremes  to  the  documen¬ 
tation  dilemma;  too  technical  or  too  general.  It  seems  as 
if  the  too  technical  examples  were  written  by  the  software 
engineers  while  the  authors  of  the  too  general  documentation 
never  really  understood  what  the  program  was  supposed  to  do. 

Price  notwithstanding,  ease  of  use  or  user  friendliness 
may  be  the  major  factor  influencing  acceptance  of  micro¬ 
computers  and  computer  generated  software  in  the  future. 

Several  articles  have  appeared  in  recent  magazine  issues  of 
BYTE  [Ref.  11  and  PERSONAL  COMPUTING  [Ref.  2]  dedicated  to 
the  subject  of  human  factors  design  engineering  in  hardware 
and  software  systems.  Basically  they  both  say  that  as  the 
general  public  begins  to  accept  microcomputers  into  their 
daily  routines,  the  transition  to  a  computerized  society 
will  be  made  smoother  by  the  software  designers.  They  must 
design  their  programs  with  the  general  public  in  mind. 

Civilian  contractors  who  supply  wargames  to  the  military  have 
a  head  start  on  the  rest  of  the  computer  software  industry, 
but  there  is  still  a  long  way  to  go. 


Another  possible  advantage  in  using  microcomputers  for 
wargaming  is  reducing  the  intimidation  the  user  feels  while 
sitting  in  a  large  computer  center  time  sharing  with  a 
mainframe  computer.  Anxiety  and  trepidation  on  the  behalf 
of  the  user  may  be  kept  to  a  minimum  by  using  micros  that 
incorporate  user  friendly  software. 

Two  major  disadvantages  associated  with  using  micro¬ 
computers  for  large  scale  wargaming  are; 

1.  The  lack  of  standardization  in  the  microcomputer 
industry. 

2.  The  inability  of  today's  microcomputers  to  handle 
very  large  databases  with  the  speed  necessary  to  use 
them  in  "real  time"  applications. 

Until  an  industry-wide  standard  is  adopted  purchasers 
of  systems  must  ask  themselves  if  what  they’re  buying  will 
be  compatable  with  what  they  already  have  or  what  they  may 
buy  in  the  future. 

The  second  disadvantage  is  not  as  serious  as  the  lack  of 
standardization  since  technological  breakthroughs  often 
occur.  Today's  8-bit  and  l6-bit  microprocessors  will  surely 
give  way  to  tomorrow's  32  and  64-bit  microprocessors.  This 
increased  size  chip  will  allow  vast  amounts  of  online 
computer  memory  to  be  available  for  instant  recall,  thereby 
allowing  increased  database  size  and  retrieval  speed. 
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B.  TMA  IN  GENERAL 


The  TMA  program  is  a  small  scale  attempt  to  correct  many 
of  the  above  listed  deficiencies.  The  microcomputer  has 
become  a  very  powerful  computing  tool.  This  is  due  primarily 
to  technological  increases  in  the  areas  of  silicon  chip 
memory  densities  and  larger,  more  sophisticated  microprocessors 
with  faster  cycle  times.  The  microcomputer's  lower  cost  and 
high  reliability  make  it  possible  to  increase  overall 
availability  of  computer  wargames  as  well  as  computers  in 
general . 

The  major  goal  of  the  TMA  program  is  to  demonstrate  some 
user  friendly  software  implementation  techniques  while 
exploring  the  capabilities  of  microcomputers  in  wargaming. 

In  addition  to  being  informative  and  instructive  in  nature, 
this  program  is  intended  to  be  painless  to  use  and  fun  to 
watch.  This  is  made  possible  by: 

1.  Programming  the  game  in  the  computer  language  Pascal. 

2.  Using  the  high  resolution  graphics  capability  of  the 
Apple  II  computer. 

Pascal  was  chosen  as  a  programming  language  over  BASIC 
and  FORTRAN  because  of  its  highly  structured  nature.  This 
structuring  allows,  if  not  requires,  modular  design  and  makes 
it  very  legible  and  comprehensible  for  large  programs.  Changes 
and  modifications  can  be  made  several  times  faster  than  in 
unstructured  languages.  Also,  Ada,  which  is  soon  to  be 
required  of  all  contractors  who  want  to  do  business  with 
the  U.S.  Department  of  Defense,  can  be  thought  of  as  an 


enhancement  of  Pascal.  Pascal  comes  in  many  versions.  The 
version  used  for  TMA  is  Apple  Pascal  which  incorporates  UCSD 
Pascal  and  Apple  extensions  for  graphics,  sound,  and  paddles. 

Of  these  extensions  TMA  uses  graphics  and  sound. 

The  high  resolution  graphics  capability  of  the  Apple  II 
computer  makes  it  possible  to  produce  an  aesthetically  pleasing 
graphical  presentation  of  the  actual  events  as  they  happen 
during  the  simulation.  This  could  be  expanded  upon  by  having 
a  high  resolution  color  monitor  instead  of  a  green  or  black 
and  white  screen.  Visual  representation  prompts  faster  feed¬ 
back  from  the  user.  He  can  quickly  scan  and  understand  each 
tactical  situation  as  it  occurs.  The  more  computer  graphics 
are  used  to  represent  what  is  actually  happening,  the  more 
useful  the  wargame  will  be  to  the  user. 


III.  THE  PROGRAM 


TMA  is  an  acronym  standing  for  Tactical  Motion  Analyzer. 
The  main  program  is  comprised  of  three  separate  subprograms; 
the  database,  the  motion  analyzer  and  a  fast-time  replay  of 
the  motion  analyzer. 

The  database  subprogram  is  designed  to  be  interactive  in 
nature.  Menus  are  used  throughout  the  program  that  offer  the 
user  a  selection  of  specific  choices  that  may  be  made.  Once 
an  appropriate  choice  is  made,  that  segment  of  the  program 
becomes  active.  If  the  user  makes  a  mistake  or  changes  his 
mind  about  a  selection,  the  program  will  allow  the  user  to 
regress  to  the  previous  level.  When  an  input  is  required 
the  computer  will  prompt  the  user.  If  an  unexpected  input  is 
received  the  computer  will  beep,  the  input  will  be  erased  from 
the  screen  and  the  user  will  again  be  prompted  for  input. 

This  will  not  prevent  erroneous  input  from  getting  into  the 
database,  but  will  prevent  the  user  from  entering  a  number 
if  a  letter  is  expected  and  vise  versa. 

The  database  portion  of  the  program  allows  the  user  to 
develop  and  save  various  parameters  of  specific  units.  These 
parameters  are  entered  by  the  user  and  then  saved  as  a  file 
on  the  game  diskette.  This  information  is  then  available 
throughout  the  program  using  random  access.  There  is  a 
default  database  on  the  TMA1  diskette  consisting  of  ten  units 
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(specifically  surface  vessels).  The  user  can  use  the  default 
database  or  devise  his  own.  Each  game  diskette  has  room  for 
at  least  ten  separate  user  database  files.  Input  required  by 
the  database  for  each  unit  is  as  follows: 

1 .  Class 

2.  Name 

3.  Hull  number 

4.  Initial  Course 

5.  Initial  Speed 

6.  Position  (X-Y  coordinates) 

7.  Maximum  unit  speed 

8.  Number  of  surface-to-surface  missiles  (SSM)  on  board 

9.  SSM  speed 

10.  Number  of  surface-to-air  (SAM)  missies  on  board 

11.  SAM  speed 

Course  and  speed  are  the  only  parameters  which  may  be 
altered  before  each  move. 

Each  user  database  must  have  a  different  name.  When  the 
diskette  becomes  full,  the  program  will  let  the  user  know  by 
printing  an  appropriate  message  on  the  screen.  More  room  can 
be  made  available  on  the  diskette  by  removing  an  unnecessary 
datafile. 

The  database  subprogram  is  completely  self contained. 

While  the  user  is  interacting  with  this  section  of  the  program, 
no  data  is  transferred  between  computers. 

The  second  subprogram  of  TMA  deals  with  the  mathematical 
manipulation  and  graphical  display  of  the  program.  All 
calculations  in  TMA  are  deterministic.  Motion  for  each  unit 
is  computed  from  three  inputs  provided  by  the  user;  course, 
speed  and  time.  Course  and  speed  are  maintained  in  the 
database.  A  time  increment  is  entered  before  every  time-step. 
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Geometry  and  trigonometry  are  used  to  derive  all  unit 
motion.  The  calculations  are  first  computed  for  the  user's 
side,  then  the  program  automatically  communicates  with  the 
opponent's  program  and  retrieves  the  necessary  data  to  plot 
the  updated  positions  of  his  units.  A  history  of  all  position 
changes  are  saved  on  the  diskette  for  later  use  by  the  program 
Communication  between  computers  is  handled  by  the  user.  The 
program  will  stop  at  the  appropriate  time  and  request  the 
players  to  exchange  program  diskettes.  This  exchange  allows 
each  player  to  view  the  moves  made  by  the  opponent.  If  for 
some  reason  this  exchange  is  not  made,  the  program  will 
continue  to  run,  however,  only  the  moves  made  locally  will 
be  displayed. 

Between  moves  the  user  can  study  each  unit's  situation. 

The  user  has  the  following  options: 

1.  Draw  a  circle  of  a  specified  range. 

2.  Compute  the  range  and  bearing  between  units. 

3.  Determine  closest  point  of  approach  (CPA)  between  units. 

4.  Calculate  intercepts  between  units. 

5.  Move  individual  units  around  the  screen. 

6.  Advance  to  the  next  time-step. 

A  more  specific  description  and  explanation  of  how  to  use 
the  program  follows  in  the  Appendix  in  the  form  of  a  user's 
manual . 

The  graphical  representation  of  TMA  is  oriented  in  IJ.3. 
Navy  standard.  North  is  360  or  000  degrees  and  corresponds 
to  the  top  of  the  screen.  East  is  090  degrees  and  is  the 
right  side  of  the  screen  as  the  user  views  it.  Bearings 
increase  to  the  right  (clockwise).  The  graphic  screen  of  the 


Apple  computer  is  not  square  but  is  actually  a  rectangle  that 
measures  280  dots  along  the  X-axis  (horizontally)  and  192 
dots  along  the  Y-axis  (vertically).  This  rectangular  display 
has  some  inherent  disadvantages.  The  disadvantage  most 
noticable  to  the  user  will  be  that  circles  drawn  on  the  display 
will  appear  as  ellipses.  Also,  identical  distances  drawn  along 
both  axes  will  show  on  the  screen  as  having  different  length. 

The  graphics  screen  of  TMA,  as  viewed  by  the  user,  will 
consist  of  a  100  by  100  mile  square  grid.  Each  dot  will 
represent  one  mile.  The  lower  left-hand  corner  will  be  the 
origin.  The  horizontal  and  vertical  axes  correspond  to  the 
X  and  Y  axes,  respectively.  These  square  coordinates  will 
be  linearly  transformed,  within  the  mechanics  of  the  program, 
into  the  rectangular  grid  that  the  Apple  computer  uses.  All 
numerical  output  to  the  user  will  again  be  transformed  to  the 
more  familiar  100  by  100  grid. 

This  method  of  graphic  display  was  chosen  by  the  author 
to  ensure  a  one-to-one  correspondence  between  the  user's 
grid  coordinates  and  that  of  the  machine.  In  retrospect, 
this  may  not  be  as  important  as  originally  envisioned. 
Consequently,  this  phenomenon  is  one  that  may  be  corrected 
by  changes  to  the  program  code. 

Calculations  are  performed  using  real  numbers,  which  on 
the  Apple  Computer  have  precision  to  seven  decimal  digits. 
However,  displaying  these  positions  on  the  screen  require 
rounding  off  each  position  to  its  integer  equivalent.  The 


impact  of  this  induced  rounding  error  is  varied  depending  on 
what  scale  the  user  is  viewing  the  screen.  For  example,  the 
initial  scale  is  1  dot  per  mile.  In  this  scale  the  round 
off  error  may  account  for  a  screen  positioning  error  of  up 
to  one  mile. 

The  final  section  of  TMA  is  the  fast-time  replay  subprogram. 
When  Rerun  is  invoked  by  the  user,  the  screen  will  clear  and 
display  the  game  situation  as  it  was  before  the  first  move  of 
the  game.  During  this  phase  of  the  program  all  user  options 
are  active  just  as  before.  However,  when  the  user  elects  to 
advance  to  the  next  time  step,  instead  of  computing  new  positions, 
the  computer  will  read  the  next  set  of  coordinates  from  it's 
history  file  and  display  them  on  the  screen.  This  gives  the 
user  the  ability  to  observe  a  lengthy  series  of  moves  condensed 
into  a  relatively  short  time.  This  is  an  ideal  time  for  the 
user  to  critique  his  own  tactical  decisions  and  to  observe 
those  of  his  opponent.  The  Rerun  subprogram  is  completely 
self contained,  that  is,  no  interaction  takes  place  between 
computers.  Each  terminal  is  a  stand  alone  system  at  this 
time  requiring  no  exchanging  of  diskettes. 
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IV.  MOTION  ANALYZER 


A.  INITIALIZATION 

TMA  is  a  large  program  as  microcomputers  go.  The  text 
version  is  over  3000  lines  of  Pascal  code.  The  compiled 
length  equates  to  about  40*000  bytes.  This  does  not  include 
the  library  routines  that  are  used  for  graphics  and  trigono¬ 
metric  functions,  nor  memory  that  is  set  aside  for  variables. 
Although  the  Apple  II  is  a  64*000  byte  machine,  it  cannot 
store  the  Pascal  language,  TMA,  and  the  library  routines  in 
memory  at  the  same  time.  Pascal,  however,  is  such  a  flexible 
language  that  it  allows  the  programmer  to  divide  programs  into 
smaller  segments  that  are  only  loaded  into  memory  when 
needed.  Only  the  'main’  program  need  reside  in  memory  at 
all  time. 

The  'main'  program  is  loaded  into  memory  automatically 
when  the  machine  is  turned  on,  provided  the  TMA  diskettes 
are  in  the  disk  drives.  The  'main'  program  has  two  important 
functions ; 

1 .  The  declaration  of  all  global  variables  used  in  TMA. 

2.  The  job  of  'program  director'. 

Many  variables  used  in  TMA  are  global.  The  record  which 
contains  all  database  information,  datafile  names,  and  flag 
names  are  needed  in  various  segments  throughout  TMA.  In 
order  to  pass  the  values  of  these  variables  between  program 
segments,  they  must  be  declared  in  the  main  program. 
Unfortunately,  each  global  variable  consumes  precious  memory. 


The  main  program  acts  as  program  director  by  checking  the 
status  of  each  flag  variable.  Throughout  the  program  various 
flags  are  set.  These  flags  are  boolean  variables  that  have 
values  of  'true'  or  'false'.  These  flags  are  changed  as  the 
user  progresses  through  the  program.  When  the  user  leaves  a 
segment,  TMA  always  returns  to  the  main  program  to  check  the 
flags.  The  main  program  determines  which  segment  is  to  be 
loaded  into  memory  based  on  present  flag  status.  This  loading 
and  unloading  of  segments  into  the  memory  is  virtually 
invisible  to  the  user.  However,  program  response  time  is  slowed 
by  frequent  access  to  the  disk  drives. 

Once  the  main  program  is  loaded,  execution  begins.  TMA 
reads  a  file  on  the  TMA1  diskette  called  SYSTEM. MISCINFO. 

This  file  contains  the  screen  control  characters  for  each 
computer.  Using  SYSTEM. MISCINFO  allows  the  programmer  to 
perform  general  video  functions  that  are  terminal  independent. 
These  functions  include  clearing  the  screen  and  positioning 
the  cursor. 

An  initialization  segment  (TMAINIT)  is  loaded  next. 

TMAINIT  sets  certain  variables,  arrays,  and  all  flags  to 
their  initial  values.  This  segment  also  asks  the  user  if  he 
wants  to  resume  an  old  game.  If  the  user  responds  affirma¬ 
tively,  the  proper  flag  is  set  and  the  program  transfers  to 
the  RESUME  segment.  The  RESUME  segment  reads  data  from  the 
last  move  of  a  previous  game  from  five  different  disk  files 
on  the  diskette  TMA2.  These  five  disk  files  are  then  removed 


from  the  diskette.  If  the  user  opts  to  begin  a  new  game,  the 
motion  analyzer  subprogram  is  invoked  by  selecting  the  MOTION 
ANALYSIS  PROGRAM  option.  This  subprogram  is  the  bulk  of  TMA. 


B.  MOTION  ANALYSIS 

1 .  Segment  procedure  MATHFUNC 

The  procedure  MATHFUNC  marks  the  actual  beginning  of 
the  MOTION  ANALYSIS  PROGRAM.  This  procedure  has  several 
related  functions. 

MATHFUNC  first  asks  the  user  the  name  of  the  diskfile 
containing  the  database  for  the  game.  The  user  enters  the 
filename,  and  the  program  locates  and  reads  that  diskfile. 

Should  the  user  misspell  or  make  a  mistake  typing  the  filename, 
the  program  will  continue  to  prompt  the  user  until  a  correct 
filename  is  entered.  The  program,  having  read  the  desired 
datafile,  computes  each  target's  initial  position  and  displays 
them  on  the  monitor.  This  gives  the  user  an  opportunity  to 
visually  check  the  information  in  the  database.  The  user 
must  press  the  escape  key  (ESC)  on  the  keyboard  to  continue. 

At  this  point,  the  user  has  two  options.  The  user  may  elect 
to  continue  the  game,  or  return  to  the  database  segment  to 
make  changes  to  the  database.  The  database  segment  is 
discussed  in  detail  in  chapter  5. 

If  the  user  decides  to  continue  then  several  events 
occur.  TMA  opens  two  historical  datafiles  on  TMA1  ( ORNGOLD. DATA 
and  BLUEOLD. DATA ) .  These  datafiles  maintain  unit  positioning 
data  for  use  during  the  RERUN  segment  of  TMA.  Specifically, 


each  file  contains  an  X  and  Y  coordinate  for  each  unit  and  the 


time  increment  for  each  game  move.  One  additional  disk  file 
is  initialized  also  (BLUENOW. DATA) .  This  file,  on  TMA2, 
maintains  the  present  positioning  data  for  the  user's  units. 

At  this  time  TMA  ceases  to  be  a  self-contained  program 
and  the  user  is  informed  that  data  transfer  between  players  is 
necessary.  Instructions  are  displayed  on  the  monitor  and  the 
user  need  only  follow  them.  These  instructions  request  the 
user  to  remove  the  TMA2  diskette  from  drive  §2  and  exchange 
it  with  his  opponent's  TMA2  diskette,  then  place  this  TMA2 
diskette  in  drive  §2»  As  mentioned  above,  a  datafile 
(BLUENOW. DATA)  is  maintained  on  TMA2  that  contains  current 
positioning  data.  When  these  diskettes  are  exchanged,  current 
positioning  data  is  also  exchanged.  Both  sides  now  have 
current  positioning  data  for  themselves  and  their  opponents. 
The  MATHFUNC  segment  terminates,  sets  the  proper  flags,  and 
transfers  program  control  back  to  the  main  program. 

2.  Segment  procedure  MOTION 

The  main  program  transfers  control  of  TMA  over  to  the 
procedure  MOTION.  This  procedure  performs  the  actual  motion 
analysis  requested  by  the  user.  The  user  has  the  following 
options : 

1 .  Advance  to  next  time-step. 

2.  Draw  range  circle  around  a  specified  unit. 

3.  Compute  range  between  units. 

4.  Determine  CPA  between  units. 

5.  Determine  Course/Speed  of  units. 

6.  Check/Change  movements  of  a  unit. 

7.  Compute  intercept  between  units. 
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8,  Clear  the  display. 

9.  Downscale  display. 

10.  Upscale  display. 

11.  Recenter  the  display  on  a  specified  unit. 

12.  Toggle  between  text  and  graphic  page. 

13.  Terminate  the  game. 

3.  Segment  procedure  ADVANCE 

The  Advance  option  transfers  control  of  TMA  to  the 
ADVANCE  procedure.  Based  on  a  time  step  entered  by  the  user, 
the  program  calculates  new  X,  X-coordinates  for  all  units. 

The  following  formulae  are  used: 

X»  =  X  +  (SPEED/60  X  TIME  x  2.8  x  SIN(COURSE)) 

Y'  =  Y  +  (SPEED/60  x  TIME  x  1.92  x  COS(COURSE)) 

X’,  Y'  represent  the  new  X  and  Y  positions  respectively. 
SPEED  is  the  unit's  speed  in  nautical  miles  per  hour,  the  60 
converts  it  to  minutes.  TIME  is  the  time-step  entered  by  the 
user  in  minutes.  The  numbers  2.8  and  1.92  are  the  number  of 
graphical  dots  per  nautical  mile  in  each  plane  X,  Y.  The 

trigonometric  functions  SIN  and  COS  determine  the  X  and  Y 

components  of  the  unit's  velocity. 

Before  the  actual  computations  are  performed,  however, 
the  user  is  given  the  option  of  viewing  and  changing  the 
present  course  and  speed  of  each  unit.  This  way  minor  changes 
may  be  made  to  the  database  without  returning  to  the  database 
procedure. 

A  pictoral  representation  of  units  before  and  after 
they  advance  is  shown  in  figures  1  and  2  on  the  following 
page.  Figure  1  shows  three  units  as  they  may  appear  before 
being  advanced.  Figure  2  shows  the  units  after  they  have 
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Figure  1:  Monitor  before  advance 


Figure  2:  Monitor  after  advance 


advanced.  Both  the  before  and  after  positions  will  be 
displayed  until  the  user  clears  the  screen  or  changes  scale. 

After  the  new  X  and  Y  coordinates  are  calculated,  they 
are  saved  on  the  diskette  TMA2.  Once  again  the  user  goes 
through  the  diskette  exchanging  procedure  with  his  opponent. 
These  coordinates  are  then  saved  in  the  historical  datafiles 
on  the  diskette  TMAl . 

The  ADVANCE  procedure  then  transfers  control  back  to 
the  MOTION  procedure.  The  new  unit  positions  are  displayed 
and  the  user  may  again  select  from  the  various  options. 

4.  Segment  procedure  CIRCLE 

This  procedure  allows  the  user  to  draw  circles  of  a 
specified  range  around  any  unit.  The  TMA  program  prompts 
the  user  for  the  circle's  origin  and  a  radius  in  nautical 
miles.  Due  to  the  graphical  limitations  of  the  APPLE  II 
computer,  these  circles  must  be  drawn  one  dot  at  a  time. 

The  circles  will  always  appear  elliptical  vice  circular. 

This  is  because  of  the  difference  in  the  number  of  dots  per 
mile  along  the  horizontal  axis  and  the  vertical  axis.  Figure 
3  shows  the  display  after  a  circle  is  drawn  around  unit  number 
one.  After  the  circle  is  completed,  control  of  TMA  is  returned 
to  MOTION. 

5.  Procedure  RANGE 

Procedure  RANGE  is  incorporated  into  the  MOTION  segment 
procedure  since  it  is  relatively  small.  RANGE  calculates  the 
distance  between  any  two  units.  The  program  prompts  the  user 


for  the  unit  numbers  desired,  target  1  and  2,  A  line  is 
drawn  between  the  units,  and  the  range  is  displayed  in  nautical 
miles.  Range  is  calculated  using  the  square  root  of  the  sum 
of  the  squares. 

DIST  =  SQRT(((X2-X1/2.8)A2  +  ( ( Y2-Y1 /I . 92)A2) 
whore, 

XI ,  Y1  is  the  present  position  of  target  1 .  X2, 

Y2  is  the  present  position  of  target  2.  The  factors  2.8  and 
1.?2  transform  the  units  from  dots  per  nautical  mile  to 
nautical  miles.  The  term  ’a2*  means  raised  to  the  second 
power.  SQRT  implies  take  the  square  root. 

Figure  4  shows  the  display  after  the  range  between 
■  ••'.it  zero  and  unit  one  has  been  calculated.  After  displaying 
the  calculated  range  between  targets,  program  control  is 
returned  to  the  MOTION  segment. 

6.  Segment  procedure  CPA 

The  CPA  procedure  calculates  the  closest  point  of 
approach  between  two  designated  units.  Computations  are  based 
on  present  course  and  speed. 

CPA  derives  all  Information,  course  and  speed,  from 
the  two  most  recent  unit  positions.  Obviously,  if  no  advances 
have  been  made,  course  and  speed  can  not  be  determined.  CPA 
will  inform  the  user  that  not  enough  data  exists  to  calculate 
CPA. 

Assuming  at  least  one  time-step  advance  has  been  made. 


CPA  is  calculated  as  follows: 


The  two  most  recent  positions  of  all  units  are  main¬ 
tained  in  a  global  array  throughout  TMA.  Based  on  these 
positions  the  course  of  any  unit  can  be  calculated  using  the 
arctangent  function. 

COURSE  =  ARCTANGENT( (DX/2.a)/(DY/1 .92) ) 

DX  is  the  distance  moved  in  the  X  direction  and  DY  is 
the  distance  moved  in  the  Y  direction.  Once  again  these 
distances  are  translated  from  dots  per  nautical  mile  to  nautical 
miles.  A  problem  occurs  when  DY  is  zero  or  close  to  zero. 

By  checking  this  first  the  program  can  avoid  'division  by 
zero'  errors.  If  DY  is  zero  the  course  must  be  either  090 
or  270  degrees.  Again  this  can  be  determined  by  the  sign  of 
DX.  If  DX  is  positive,  for  example,  the  unit  is  traveling 
270  degrees.  Unit  speed  is  calculated  in  a  two  stage  process. 
Distance  is  calculated  first  using  the  same  method  described 
in  RANGE  above.  Speed  is  derived  from  this  distance  divided 
by  the  length  of  time  of  the  last  time-step. 

Knowing  the  course  and  speed  of  the  units  the  program 
uses  the  X  and  Y  components  of  velocity  to  compute  the  time 
of  minimum  distance.  This  is  the  time  of  CPA.  Once  CPA  time 
is  known,  the  relative  future  positions  of  each  unit  is  cal¬ 
culated  and  displayed.  Figure  5  shows  the  screen  after  TMA 
has  calculated  CPA  between  unit  zero  and  unit  one.  The  end 
point  of  the  displayed  lines  is  the  relative  unit  positions  at 
CPA.  Finally,  the  program  informs  the  user  of  the  number  of 
minu\;es  until  CPA,  and  the  range  and  bearing  between  units  at 
CPA. 

Control  is  then  returned  to  the  MOTION  segment. 
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Figure  5:  Monitor  showing  CPA 


Figure  6 


Monitor  showing  unit  movement 


^  Procedure  INTERROGATE 


This  procedure  determines  the  course  and  speed  of  any 
unit.  As  in  CPA  above,  this  procedure  uses  the  two  most 
recent  positions  of  the  target  to  determine  its  course  and 
speed.  The  program  will  inform  the  user  that  it  does  not 
have  enough  data.  If  the  user  attempts  to  invoke  this  pro¬ 
cedure  after  at  least  one  time-step  advance,  then  the  unit's 
course  and  speed  are  calculated  exactly  as  described  above  in 
CPA.  After  the  course  and  speed  has  been  determined  and 
displayed,  program  control  is  returned  to  MOTION. 

8 .  Segment  procedure  MOVEMENT 

The  MOVEMENT  procedure  moves  individual  units  around 
the  grid  before  actually  making  the  changes  permanent  in  the 
database.  Three  types  of  movement  are  possible  for  the 
player's  units  and  one  type  for  the  opponent's  units: 

1.  Movement  using  course,  speed  and  time. 

2.  Move  your  unit  to  any  X,Y  coordinate. 

3.  Move  your  unit  a  bearing  and  distance. 

4.  Move  your  opponents  units  based  on  their  present  course 
and  speed. 

Option  one  prompts  the  user  for  the  unit  number, 
desired  course,  speed  and  time.  The  future  position  is 
calculated  using  SIN  and  COS  functions,  and  then  displayed  on 
the  monitor.  Option  two  prompts  the  user  for  a  unit  number 
and  an  X  and  Y  coordinate,  which  is  then  displayed  on  the 
monitor.  Option  three  prompts  the  user  for  a  unit  number, 
bearing  and  distance.  This  is  transformed  into  an  X  and  Y 
coordinate,  then  displayed  on  the  monitor.  Option  four  is 


not  directly  visible  to  the  user,  nonetheless,  it  is  there. 

If  the  user  wishes  to  move  an  opponent's  unit,  option  four  is 
automatically  invoked.  Option  four  transfers  control  to 
segment  procedure  M0VE2. 

All  movements  allow  the  user  the  option  trace-on 
or  trace-off.  Trace  on  draws  a  line  from  the  old  position 
to  the  new  position.  Trace  off  will  not.  After  making  a 
move  the  program  asks  the  user  if  it  should  incorporate  the 
move  into  the  database  for  the  next  time-step.  If  the  user 
answers  affirmatively,  the  new  course  and  speed  for  the  unit 
moved  will  be  entered. 

Figure  6  shows  three  different  movements  of  unit 
number  one.  Note  that  two  movements  are  with  the  trace-on 
and  one  is  with  the  trace-off.  All  unit  movements  will 
remain  visible  on  the  monitor  until  the  user  clears  the 
screen. 

The  MOVEMENT  segment  can  only  be  terminated  by  the 
user.  Once  terminated,  program  control  is  returned  to  MOTION. 

9 .  Segment  procedure  M0VE2 

This  segment  is  invoked  only  when  the  user  wants  to 
move  an  opponent's  unit.  Since  the  user  has  no  control 
over  the  course  and  speed  of  these  units,  all  movements  are 
based  on  the  individual  unit's  actual  course  and  speed.  Course 
and  speed  are  computed  exactly  as  discussed  above  in  segment 
procedure  CPA.  Once  again  at  least  one  time-step  advance 
must  have  been  made  to  compute  the  unit's  course  and  speed. 
Assuming  the  data  is  available,  the  user  is  asked  for  a 


time-step  increment  to  see  the  unit's  future  position.  The 
only  other  option  allowed  is  the  trace-on  or  trace-off.  This 
also  works  exactly  as  described  above  in  the  MOVEMENT  segment. 

Completion  on  the  M0VE2  segment  returns  control  of 
the  program  to  the  MOVEMENT  segment. 

10.  Segment  procedure  INTERCEPT 

This  procedure  computes  the  course  and  speed  required 
to  intercept  any  unit  from  any  user's  unit.  Three  inputs 
are  required  by  the  user.  Input  one  is  the  unit  to  be  inter¬ 
cepted.  The  second  input  is  the  unit  number  of  the  intercepting 
unit.  Note,  this  unit  must  be  maneuverable  by  the  user.  The 
final  input  is  the  desired  time  of  intercept  (minutes).  Once 
again  at  least  one  time-step  advance  must  be  made  to  compute 
an  intercept.  The  time  supplied  by  the  user  will  determine 
the  point  of  interception,  assuming  the  data  is  available  to 
compute  course  and  speed  of  the  unit  to  be  intercepted.  An 
intercept  course  is  computed  and  speed  is  calculated  based  on 
the  present  position  of  the  intercepting  unit  and  the  point 
and  time  of  interception.  This  course  and  speed  is  displayed 
on  the  monitor  and  the  user  is  asked  if  he  wants  to  make  this 
course  and  speed  change  to  the  database  for  the  intercepting 
unit. 

When  completed,  control  is  returned  to  the  MOTION 

segment. 

1 1 .  THESISO  library  segment 

The  downscale  and  upscale  options  are  contained  in 
the  SYSTEM. LIBRARY  file  on  diskette  TMA1 .  These  options  allow 
the  user  to  change  the  scale  of  the  display  at  any  time. 


The  left  arrow  key  (*♦—)  controls  the  downscale 
function.  This  function  clears  the  display  and  then  redisplays 
all  units  at  a  scale  one  half  the  previous  value.  For  example, 
if  the  scale  is  10  dots  per  nautical  mile,  it  becomes  20  dots 
per  nautical  mile  after  a  downscale. 

The  right  arrow  key  (*"^)  controls  the  upscale  function. 
It  is  the  exact  inverse  of  the  downscale  function.  If  the  scale 
is  10  dots  per  nautical  mile,  it  becomes  5  dots  per  nautical 
mile  after  an  upscale. 

Neither  downscale  nor  upscale  have  any  affect  on  the 
actual  positions  of  the  unit's  coordinates  used  for  calculations. 
These  positions  are  kept  in  global  arrays  that  are  used 
throughout  the  program.  The  present  scale  is  displayed  at 
the  top  of  the  screen  at  all  times.  The  scale  shows  the 
relative  horizontal  distance  of  ten  miles.  The  user  should 
note  that  the  same  vertical  distance  appears  shorter  because 
the  number  of  dots  per  nautical  mile  is  less.  Automatic 
scaling  is  not  available,  the  scale  will  not  change  unless 
the  user  exercises  his  options. 

1 2 .  Segment  procedure  RSGENTER 

This  procedure  belongs  in  the  THESI30  library,  however, 
was  made  into  its  own  segment  because  of  memory  constraints. 
RECENTER,  as  its  name  implies,  recenters  the  display.  The 
space  bar  activates  this  procedure.  The  user  may  recenter 
the  display  on  any  unit.  This  becomes  very  important  as  the 
game  advances  and  the  targets  move. 
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Along  the  top  of  the  display,  next  to  the  scale,  are 
the  center  coordinates.  These  coordinates  are  initially 
(50,50)  which  is  the  center  of  the  screen.  As  the  user 
recenters,  the  top  of  the  display  always  indicates  the  current 
screen  center. 

After  recentering,  the  control  of  the  program  returns 
to  MOTION. 

1 3.  Toggle  the  display 

The  APPLE  II  computer  has  two  separate  screens,  the 
text  screen  and  graphics  screen.  The  TMA  program  tries  to  do 
a  good  job  of  anticipating  the  users  needs  by  switching 
between  text  and  graphics.  However,  the  user  has  the  option 
of  switching  between  text  and  graphics  on  his  own  by  using  the 
escape  (ESC)  key. 

1 4.  Terminating  TMA 

The  final  option  available  to  the  user  is  to  terminate 
the  program.  TMA  displays  the  same  menu  as  was  shown  at  the 
beginning  of  the  game.  If  the  user  selects  the  TERMINATE 
PROGRAM  option,  the  user  is  asked  if  he  wants  to  save  the 
game.  This  option  should  be  selected  if  the  user  wishes  to 
return  later  to  finish  the  game.  This  option  creates  five 
different  datafiles  on  diskette  TMA2  for  future  use.  When 
the  user  wishes  to  continue  the  game,  answer  affirmatively  to 
that  question  and  assure  that  TMA2  is  in  drive  #2.  The  program 
will  load  the  appropriate  data,  initialize  the  proper  variables 
and  return  the  user  to  the  MOTION  segment  procedure  as  if 
he  had  never  left. 
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V.  THE  DATABASE 


The  database  subprogram  is  invoked  by  selecting  the 
'BUILD  OR  MODIFY  DATABASE'  option  at  the  start  of  the  game. 

The  database  uses  random  access  disk  files  to  build  and  main¬ 
tain  a  record  of  specific  unit  parameters.  Modifications  to 
an  existing  database  are  quickly  made  due  to  the  random 
access  structure. 

Initially,  the  program  asks  the  user  to  enter  a  file  name 
for  the  database.  After  the  file  name  is  entered,  two 
possibilities  exist: 

1.  The  file  name  already  exists  on  the  game  diskette. 

2,  The  file  name  does  not  exist  on  the  diskette. 

If  the  name  is  presently  on  the  game  diskette,  the  program 
will  read  that  file  into  the  computer.  That  information  will 
then  be  available  for  viewing  and  editing.  If  the  file  name  is 
not  on  the  diskette,  the  program  will  ask  the  user  if  he 
wants  to  start  a  new  file.  A  'no'  response  will  cause  the 
computer  to  again  ask  the  user  for  a  file  name.  A  'yes' 
response  will  prompt  the  program  to  ask  how  many  records 
are  needed  for  the  new  datafile.  If  the  number  of  records  is 
not  known,  a  best  guess  is  required.  The  number  of  records  is 
necessary  to  define  disk  space  for  random  access.  However, 
if  the  user  decides  to  extend  the  number  of  records  the  program 
will  automatically  extend  the  size  of  the  datafile.  The  program 
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will  notify  the  user  should  the  diskette  become  too  full  to 
extend  the  datafile.  To  save  disk  space  it  is  generally 
better  to  initially  under  estimate  the  number  of  records  than 
to  over  estimate. 

At  this  point  the  user  will  choose  from  the  following 
options ; 

1.  View  the  present  database. 

2.  Change  the  present  database. 

3.  Build  a  new  game  database. 

The  option  chosen  will  determine  how  'deep'  into  the  database 
the  user  will  go.  Options  one  or  two  allow  the  user  access 
only  to  the  upper  level  of  the  database.  Option  three  allows 
access  to  both  the  upper  and  lower  levels.  The  upper  level 
consists  of  the  following: 

1 .  Class : 

2.  Hull  number: 

3.  Maximum  speed: 

4.  Number  SAM: 

5.  SAM  speed: 

6.  Number  SSM: 

7.  SSS  speed: 

This  option  is  recommended  when  the  user  is  entering  unit 
data,  but  is  not  ready  to  start  a  game. 

The  lower  level  consists  of  the  following: 

1 .  Name : 

2.  Course: 

3.  Speed: 

4.  X  Coordinate: 

5.  T  Coordinate: 

This  option  is  recommended  when  the  user  is  ready  to  start  the 
game.  These  inputs  determine  the  initial  starting  position 
and  speed  for  each  unit. 
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After  choosing  which  level  of  the  database  to  enter,  the 
program  clears  the  screen  and  displays  a  prompt  line  along 
the  top.  This  prompt  line  affords  the  user  the  following 
options : 

1 .  Help 

2.  View 

3.  Change 

4.  Next 

5.  File 

6.  Return 

7.  Quit 

The  Help  option  explains  each  option.  The  View  option  displays 
each  record  for  the  users  Inspection.  No  changes  may  be  made. 
The  Change  option  displays  each  record  and  prompts  the  user 
for  input.  Changes  are  made  respective  to  the  level  the  user 
is  in.  The  Next  option  displays  the  next  record  in  the  file. 
The  File  option  saves  the  present  database  to  the  diskette 
and  asks  the  user  for  another  filename.  The  Return  option 
allows  the  user  to  change  levels  within  the  database.  Quit 
saves  the  present  database  to  diskette  and  terminates  the 
database  session  of  TMA. 

Data  entry  into  the  database  has  been  designed  to  be  as 
painless  as  possible.  The  program  displays  the  present  con¬ 
tents  of  each  field,  when  changes  are  required,  on  the  top 
half  of  the  screen.  The  user  is  prompted  on  the  bottom  half  of 
the  screen  for  input,  one  field  at  a  time.  If  a  restriction 
exists  on  the  range  of  that  input,  that  range  is  displayed  as 
well.  Any  field  may  be  left  unchanged  by  either  retyping 
that  data  or  by  using  the  RETURN  key.  The  return  key  will 


automatically  duplicate  the  present  data  into  the  changed 
database  for  that  field. 

Each  record  in  the  database  is  numbered  by  the  computer. 
These  numbers  begin  at  zero  and  continue  sequentially  to 
N  -  1,  where  N  is  the  number  of  records  in  the  database. 

Any  record  in  the  database  may  be  viewed  or  changed  at  any 
time  by  entering  that  record  number.  Random  access  will 
minimize  the  time  required  to  make  minor  changes  to  one  or 
a  few  specific  records. 

There  exists  on  the  THAI  diskette  two  predefined  databases, 
BLUEMASTER  and  BLUEGAME  or  ORANGEMASTER  and  ORANGEGAME 
depending  on  which  side  the  user  happens  to  be.  These  databases 
contain  ten  ships  with  characteristics  from  JANE'S  FIGHTING 
SHIPS.  They  are  provided  for  the  user  to  use  as  he  wishes. 

The  user  may  modify  these  files  or  use  them  as  they  are  in 
lieu  of  building  his  own  database.  It  is  recommended  the 
user  view  these  database  files  to  get  an  idea  of  the  type  of 
input  expected  by  the  program. 


VI.  THE  RERUN  OPTION 

The  RERUN  subprogram  is  invoked  by  selecting  the  'RERUN 
MOTION  ANALYSIS  PROGRAM'  option  at  either  the  start  of  the 
game  or  after  terminating  a  game.  This  option  allows  the 
user  to  view  a  fast-time  replay  of  the  most  recent  session. 

As  mentioned  in  a  previous  chapter,  all  unit  positioning 
data  is  saved  in  datafiles  during  the  game  on  diskette  TMA1  . 

The  RERUN  subprogram  resets  these  datafiles  and  sequentially 
displays  the  unit  positions.  All  TMA  motion  analysis  options 
as  described  in  chapter  IV  are  available  in  RERUN. 

There  is  one  difference  between  the  RERUN  and  MOTION 
ANALYSIS  subprograms.  That  difference  is  in  the  segment 
procedure  ADVANCE.  The  RERUN  version  is  a  reconstruction  of 
past  events.  When  the  advance  option  is  selected,  the  user 
is  not  given  an  opportunity  to  examine  or  change  the  inputs 
to  the  database  (unit  course  and  speed).  The  ADVANCE  segment 
only  reads  the  next  positioning  data  from  the  diskette  files 
and  displays  it  on  the  monitor.  As  always  the  user  can 
analyze  all  unit  motion.  TMA  will  terminate  when  all 
available  data  has  been  displayed. 

Having  a  RERUN  option  gives  the  user  a  capability  to 
repeatedly  view  and  review  all  the  moves  of  a  previous 
session.  It  is  worth  noting  that  during  this  subprogram 
TMA  is  self-contained.  No  interaction  between  players  is 
necessary  since  all  positioning  data  is  stored  on  the  diskette. 
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VII.  THE  USER'S  MANUAL 

The  following  is  a  step  by  step  instruction  guide  to 
facilitate  the  running  the  TMA  by  an  unexperienced  user. 

A.  EQUIPMENT  NEEDED 

1 .  Two  game  diskettes  marked  TMA1  and  TMA2  for  each  player 

2.  Two  APPLE  II  computers  with  64*000  bytes  of  RAM  (random 
access  memory). 

3.  Two  disk  drives  and  one  monitor  per  computer. 

B.  OPTIONAL  EQUIPMENT 

1 .  Videx  80  column  board  with  soft-switch  installed  in 
APPLE'S  slot  §3. 

2.  Color  monitor. 

C.  GETTING  STARTED 

1 .  Turn  on  the  monitor. 

2.  Insert  TMA1  into  disk  drive  and  TMA2  into  drive  §2. 
Remember  to  close  the  doors! 

3.  Turn  on  the  APPLE.  The  power  switch  is  located  on  the 
left  side  of  the  APPLE  in  the  back. 

4.  The  TMA  program  is  automatically  loaded. 

D.  TROUBLESHOOTING  POSSIBLE  PROBLEMS 

1.  No  power--Ensure  all  hardware  is  properly  connected. 

If  the  user  is  unfamiliar  with  the  equipment,  seek 
out  an  experienced  user. 

2.  TMA  does  not  load. 

a.  Check  that  the  diskettes  TMA1  and  TMA2  are  in  the 


correct  disk  drives 


b.  Ensure  that  the  APPLE  II  is  configured  as  listed 


above. 

c.  Attempt  the  startup  procedures  on  the  second 
APPLE.  If  not  successful,  the  diskettes  may  be 
defective,  use  the  backup  diskettes. 

d.  Seek  assistance  from  an  experienced  user. 

At  this  point,  if  the  user  has  been  successful,  TMA  is 
loaded  and  ready  to  run.  Chapters  4»  5»  and  6  explain  in 
detail  how  TMA  works  and  what  inputs  are  required  from  the 
user.  TMA  is  menu  driven  and  designed  to  be  user  friendly. 
The  author  hopes  the  users  enjoy  it. 
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III.  AREAS  FOR  FUTURE  ENHANCEMENTS 


TMA  is  a  small  scale  model  of  what  a  microcomputer, 
interactive  wargame  can  do.  As  such  there  is  much  room  for 
program  enhancement.  One  reason  the  author  chose  Pascal  as 
the  program  language  is  the  readability  of  the  code.  It 
should  be  relatively  easy  for  a  user  familiar  with  Pascal  to 
make  changes  to  the  program. 

The  design  of  TMA  has  significantly  changed  from  initial 
logic  to  final  product.  The  incorporation  of  various  changes 
has  resulted  in  a  program  that  is  far  from  optimal.  The 
present  design  of  TMA  uses  all  the  segments  and  library 
routines  that  Apple  Pascal  can  handle.  Therefore,  any  changes 
other  than  very  small  ones,  will  require  the  user  to  somehow 
condense  the  present  code. 

The  present  inefficiency  of  the  program  is  illustrated 
by  the  following  example.  The  procedures  that  compute  a 
unit's  course  and  speed  are  repeated  in  four  different  segment 
procedures.  If  this  were  incorporated  into  a  library  it  would 
only  be  written  once  and  could  be  removed  from  each  segment. 
There  are  several  occurances  of  similar  situations. 

Another  method  of  streamlining  the  program  is  by  chaining 
programs  together.  The  built-in  library  function  CHAINSTUFF 
provides  the  necessary  machinery  to  chain  together  as  many 
programs  as  can  fit  on  a  diskette.  To  use  CHAINSTUFF  on  TMA 


would  require  the  reduction  of  libraries  or  segments  presently 
used  by  at  least  one.  With  chaining  the  author  can  create 
many  separate  programs  that  appear  to  the  user  as  a  single 
large  program.  A  user  may  wish  to  supplement  TMA  with  some 
additional  motion  analyzing  options.  Additions  such  as  this 
may  easily  be  appended  to  the  present  program.  If  lack  of 
memory  becomes  a  problem  some  of  the  above  enhancements  will 
be  required  also. 

A  final  area  that  could  be  enhanced  is  the  individual 
algorithms  themselves.  The  algorithms  were  written  for 
clearity  not  efficiency.  Many  of  the  procedures  and  functions 
of  TMA  could  be  changed  to  conserve  memory. 


COfUTER  PROGfMH 


OMNtX) 

(J»8***) 

(IIVHE) 

PMGRMI  1fM;  (  THESIS  ) 

USES 

TURTL£GRM>HICS,TWNSCEND,GETCRr,THESISI; 

CONST 

PI>3.1413?26S4; 

TYPE 

SHIP-RECORO 

Cli^i  STRINSnil; 

NMC:  STRINStll]; 

HULLNO:  STRIN6[8]; 

SCOURSE:  INTEGER; 

SSPEEO:  INTEGER; 

XPOS:  INTEGER; 

YPOS:  INTEGER; 

NAXSSPD:  INTEGER; 

NSAH:  INTEGER; 

9WSPO:  INTEGER; 

NSSN:  INTEGER; 

SSNSPD:  INTEGER 

EM); 


m  CHi  CHAR; 

TEXr,BLFLAG,RCTRFUMi, CONTINUE, li^CHAN6E,BUILDING,06C^  300LEAN; 
»iFU«,imA6,Tllfl61,TFlA62,TFIj«33,TFli«4,TFU«5,TFlAG4,TFU^^  BOOEAN 
SrOPFUAG,GRAFFU«WNiTFli«.QUITFU»,OLOFl^,CASE8,CASEl.^  BOOLEAN; 
CASEM.OLOQANE.ICPTFUH]:  BOOLEAN; 

OKSET:  SETOFCHAR; 

MTAFILE:  FILE  OF  SHIP; 

BLUHIST,BLUGANE,af«HIST,ORNGA(C:  FILE  OF  REM.; 

ATIHE:  FILE  OF  INTEGER; 

HmSHIP,TIIC,OIM«ENOVE,8LUEmX,NTARGET,0£LTAT,R£CN^  INTEGER; 
FILENAME:  STRING! IS] ; 

GCUS,8SPOi  PACKED  ARRAYn..]8}  OF  REAL; 

QLOBCr.OLOOKY:  PACKED  MRAY[1..2,1..1810F  REAL: 


(lfIIS:TmiNIT.TEXn) 

(I8I8S;TNA0B1.TE(T» 

(HlfStRESUC.TEXTS) 


(»IiS:HA7H.TEXr» 

(»Ii5:H0ri(M.TE)Cn} 

(»II5:M>UMC£.TEXTX) 

(»II5:CIRCLE.TEXT» 

(I»lH:Cm.TEXn) 

(»II9:H0i.'QCNr.TEXn() 

(»IiS:HGUE2.TEXT» 

(X$Ii5:RECDfTER.TEXT» 

(»IIS:ELINE.TEXn) 

(»II5:mftFINIT.TEXn) 


BE6IN  C  THA  } 

(X$R  GETCRTD 
6ETCRTINF0; 

OBOH1ED:^SE; 

7MA1NIT; 

REPEAT 

IF  OLOFUW)  THEN  RESlfC;  (  read  in  old  positions  > 

IF  INITFIA6  THEN  TNAINIT; 

IF  CASES  TKN  NATIFUNC; 

IF  (CASE9A)  AND  (NOT  lOFLAG)  AND  (NOT  8LFIA6)  THEN  NATHFIMC 
IF  C/e£l  THEN  RECEKTER; 

IF  CfSa  THEN  DATABASE; 

IF  (CCKTINUE)  AN)  (NOT  BLFIA6)  TICN  NOTIDN; 

IF  (BLFIAO)  AND  (NOT  RCTHFLAO)  THEN  BOTTOtlNE; 

IF  (TFLA61)  AND  (NOT  SmAG)  AND  (NOT  RCTRFIAB)  TIfN  HIMEHENT 
IF  NFIAG  THEN  H0DE2; 

IF  (TFIA62)  AND  (NOT  aiFLAG)  AN)  (NOT  RCTRFIA6)  THEN  NOTION; 
IF  TFIA63  THEN  CPA; 

IF  TFIA64  TKN  NOTION; 

IF  (TFIAGS)  AND  (NOT  RRFIAG)  THEN  AOUANCE: 

IF  (TFLAOS)  AN)  (RRFLA6)  THEN  CIRCLE; 

IF  (TFLA66)  AND  (NOT  8LFIA(D  THEN  NOTION; 

IF  TFIA67  TIfN  CIRCLE; 

IF  RCTRFLAIi  THEN  RECENTER; 

IF  QUITFIA6  THEN  TNAFINIT; 

(MTIL  ST0PFIA6: 

END.  (  TNA  } 

SEOfNT  PROCEDURE  TNAINIT; 

UAR  GFIA6,GFLA61:  CHAR; 

LEtai:  SETOFCHM; 

PROCEDURE  PRESTMT; 

BEGIN 

!]KSn;»t'Y',Y,'N',V]; 

GOTQD(Y(l,l);CRT(ERASEOS); 

NRITEIN; 

HRITEUN'  MEMORY  AMAILABLE  IN  '40ROS:  ',NENAMAIU; 

MRITEIN; 

HRITE1N('  NOTION  ANALYSIS  PROGRAM  OPTIONS  :  '); 


MRITEUM'  DO  YOU  WISH  TO  RESUME  AN  QLOGAME  (YAO?  ') 
MRITELN;NRITELN; 

M)ITE('  6FlA61:*0ErCHAR(0KSeT4{CHR(13)}); 

CRT(E!MSEOS} ;  CRTCERASEOS) ; 

IF  GFLA6I  IN  I'Y'/y'l  THEN  0L0FUV6:>TRUE; 

0;  (  PRESTART  ) 

iOCEOURE  STMT; 

[GIN 

GOTCKr(«,a>;CRT(ERASEOS); 

HRITEIN; 

MRITEIN('  HENQRY  AMAILMLE  IN  MOROS:  MCMAUAIU; 
NRITEIM; 

M»TE1N('  NOTim  ANALYSIS  PROGRAM  OPTIONS  :  '); 
MRITELN('  '); 

MRITELNC'  8  Motion  Analysis  ProorsO; 

HRITEUK'  1  Rerun  Motion  Analysis  PrograO; 
HRITELN('  2  Guild  or  Modify  Data  Base'); 

MRITELN('  3  Terainate  Prograa') ; 

MRITELN; 

MtITE('  0;  GFIM:«GETCHM(LEUEL8) ; 

CRT(ERASEOS):  CRTCERASEOS) 

END;  (  STMT  } 


PROCEDURE  SETFIAGS; 

8E6IN 

CCNriNUE:«FALSE;(  trf  to  notion  fron  sath  ) 

08CALLEO:afALSE:(  set  to  true  if  database  was  called  } 
INITFLA6:«FALSE;(  calls  tnainit  seg.procedure  ) 

GL0FIA6:«FALSE;  (  set  to  true  if  player  wishes  to  resune  old  gaae  ) 
XOGAME:«FALSE;  (  set  to  true  if  this  is  a  resunption  of  an  old  gaae) 
BLFlAG:sFALSE;  (  trf  to  bottonl ine  ) 

RRFIA6:>FALSE;  C  trf  to  rerun  } 
tf1FLA6:*FALSE;  (  trf  to  MNe2  fron  Kn/cnent  ) 

TFLAGhsfALSE;  (  trf  to  novenent  fron  notion  ) 

TFlA62:«fALSE;  C  trf  to  notion  fron  nowenent  ) 

TFIA63:>FALSE;  (  trf  to  epa  fron  notion  ) 

TFLA64:«FALSE;  (  trf  to  notion  fron  epa  } 

TFLAG5:«FALSE;  <  trf  to  ath/ance  fron  notion  ) 

THA66:>FALSE;  (  trf  to  notion  fron  atK'ance  ) 

TFIAG7:«FALSE;  (  trf  to  circle  fron  notion  ) 

ICPTFlMi«fAL3E;  (  calls  intercept  routine  ) 

CASEB:«FALSE;  (  calls  nathfunc  seatprocedre  ) 

CASESAiafALSE;  (  calls  nathfunc  seg.prxedure  } 

CA6E1:>FALSE;  (  calls  rerun  sep.  procedure  > 

CASE2:«fALSE:  (  calls  database  sep.procedure  ) 

GRMFIA6:>FALSE:(  flap  for  grafnode  ) 

RCTRFlA6:«fiALSE;(  calls  recenter  routine  ) 
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QUrrFLA6i>fM.SE;(  calls  tMfinit  stq.proctdurt) 
ST»>FlA6:«fALSE;(  taniinitts  tM  } 

END; 

PROCEDURE  INITFI6; 

UM  I,J:  INTEGER; 

BEGIN 

FOR  I:«l  TO  3  DO  BEGIN 
FOR  J:>1  TO  7  DO  BEGIN 
SHIPFIGII.JIH^SE; 

e«; 

END; 

SHIPFI6[1,I}:>  TRUE; 

SHIPFI6t4,ll:«  TRUE; 

SHIPFIGI4,7]:*  TRUE; 

SHIPFI6[7,31:-  TRUE; 

SHIPFIGC7.3]:>  TRUE; 

FOR  I:>1  TO  8  DO  SHIPFI6[I,4]:«  TRUE; 

FOR  I:«2  TO  4  00  BEGIN 
SHIPFI6(I,3]!«  TRUE; 

SHIPFI6[I,S]:«  TRUE: 

EM); 

FOR  I :>3  TO  4  00  BEGIN 
SHIPFt6[I,21:*  TRUE; 

SHIPFI6(I,41:«  TRUE; 

E»; 

END; 

BEGIN  (  TmiNIT  } 

L£VEL0;»t'3','r,'2','3']; 

TIME:-«; 

XCTR:«14«; 

YCTR;»?4; 

limORANGE:»l; 

l1M(BLUE:«t; 

BLUENI]UE:>f; 

OIWCEHOUE:«B; 

St»LE:«l; 

IF  NOT  OBCALLED  TIEN  SETFUWS; 

INITFIG; 

PRESTART; 

INnFU;G:*fALSE; 

IF  QLOFIAG  THEN  EXIT(TNAINIT) ; 

STMT; 

MSE  SFIAG  OF 
'8'  :  USEB:«TRUE; 

'V  :  CA8E1;«TRUE; 

'2'  :  CASE2!»TRUE; 

END;  (  CASE  } 

IF  SFLAG  «  '3'  THEN  STOPFLAG!«TRUE; 
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}«;  (  TmiNIT  } 

;ae(r  pmcedus  resuc; 

EMM, BOLD, aNON,IX)LD:  FILE  OF  REM.; 

HISC:  FILE  OF  INTEGER; 

J:  INTEGER; 

nCEDURENSG; 

‘6IN 

6()T(BCr(l,l) ;  CRT(ERASEOS);  GOT(KY(G,3); 

HRITEIN('  UNABLE  TO  RESUME  AN  GLDttME  -  DATA  NOT  AMAILABLE  ') 
WITELN; 

MRITEUK'  MAKE  SURE  THE  CORRECT  DISK  IS  IN  ORM  42  !  ; 

FOR  J;sl  TO  4MI  DO; 

INITFU;6:»TRUE; 

aLOFLAG:>FALSE; 

EXIT(RESIIC) ; 

»; 

[GIN 

J:>1: 

(»I-I) 

RESETIBNON,  '•5:0L01.DATAO; 

IF  (lORESULT  O  I)  THEN  NS6; 

(HltX) 

WILE  NOT  EOFISOO  DO  BEGIN 
9(YIl,Jl:4«ar;  GET(ENOH); 

BXYI2,J]:«GNar;  GET(MM); 

GCUSIJ]:>  GNQT;  GETCGNGN); 

GSPOIJl:*  SNir;  GETCGNOO; 

J  1 ; 

END; 

NAXBLIE:«J-I; 

CLOSE(BN(M,PUPGO; 

J:-l; 

(Xfl-X) 

RESETIBOLO.  '«5:0LO2.0ATA') ; 

IF  (lORESULT  O  9)  THEN  HS6; 

(»!♦« 

WILE  NOT  EQFIBOLO)  DO  BEGIN 
QLl»(Yn,J]:»60LO*;  GET(BOLO): 

QLOGD(YI2,J]:>eOLO*;  (lET(BOLO); 

END; 

CLOSE(BQLO.PtlR60 ; 

J!«I; 

(Xfl-X) 

RESETCGNM,  '4S:0LD3.aATA') ; 

IF  (lORESULT  O  9)  THEN  NSG; 


WHILE  NOT  EOFdMM)  DO  BEGIN 
OKYIl,J]:>(Mar;  GEKQNQN); 

QDCyi2,J]:-(IOr;  GCTIdOO; 

END; 

Hm(]mNGE:>J-l; 
aOSEIONW, PURGE); 

J:*l; 

(i«IHE) 

RESEKOOD,  't5:0LO4.DATA'): 

IF  (lORESULT  O  «  THEN  HS6; 

WILE  NOT  EOFIOOLO)  DO  BEGIN 
QLOQD(Y[l,J]:>flOLI)*;  GETIOOLO); 
tXJXKYI2,J]  :>OOLD*;  GTIOOLO) ; 

EM); 

aOSEIOQLO, PURGE); 

(X$I-« 

RESETtNISC,  '«3:aL05.0ATAO; 

IF  (IQRESULT  <>  8)  TIfN  NS6; 

(»!«» 

TINE:WISC*;  GET(HISO; 

BLUB«UE;WISC*;  GETIHISO; 

0mN6EH0I€:«NISC^; 

CLOSEINISC, PURGE); 

REMITE<0INiISr,  'MtdMGQLO.OATAO ; 

BLFU«:«TRUE: 

C(lfTINUE:>TRUE; 

OLOFLAGraFALSE: 

OLOGffC:«TRUE; 

SCALE  :«1; 

XCTR:«14i; 

YCTR;»F4; 

REWHEIBLUHIST,  '1H:BLUEQLO.OATA') ; 

INITTURTLE;  TEXT:=fAL3E; 

0; 

!8G*I) 

iGHENT  PROCEDURE  DATABASE; 

PROGWH  TO  USE  fWOGN  ACCESS  DISK  FILES 
(  WO  TERHINM.<!NOEPENOENT  SCREB4  CONTROL.  ) 

CONST 

OASSLEW II  ;NAICLEW  18  :HULlJaENi6:SC0URSELE)^3;SSPDL£)^2 
XP0SLEW3;YP0SLEI^3;NSP0LEIM;M1SLL8^2; 

RfCTim  'rES:  BOOLEAN; 

BEGIN 

YES:«  GrCHAR(I'Y','y','N'/n'])  IN  t'Y'/v'l; 


PROCEDURE  MENU; 

UAR  SUCCESSFUL:  BOOLEAN; 

BEGIN 

(30r(ECr(8,l) ;  CRT(ERASEOS);  GOTODCr(8,2}; 

HR1TEIN('  im  DATABASE  MAIN  HENU  0; 

HRITELN; 

MRITELN('  (A)  UtM  databasff  0; 

MRITELNI'  (B)  Change  database  '); 

NRITELNt'  (O  Build  new  g«M  database  0; 

MRITEliK'  (Q)  Quit  '); 

MRITELN; 

CH:aGETCHAR(['A'  ,'a'  ,'B'  ,'b'  ,'C'  ,'c'  ,'0'  /d'  ,'Q'  ,'q']) ; 
G0TIKY(fl.8);  CRTtERASEQS) ; 

IF  CH  IN  l'C','c']  THEN 
BUIL0IN6:>TRUE 

asE 

BUIL0IN6:«FAL3E; 

END;  {  Menu  } 

PROCEDURE  2ER0REC(VM  REC:  SHIP); 

BEGIN 

NITH  REC  00 
BEGIN 
CLASS:-"; 
fWC:«"; 

HULINO:-"; 

SCOURSE:-!; 

SSPEED:-8; 

XP0S:-8; 

YPOS:-«; 

rW(SSP0:«8; 

NSAN:>«; 

SM1SP0:-«; 

NSSH:««; 

SSMSPO:««; 

END; 

END; 


PROCEDURE  VIALIDATE(UAR  REC:  SHIP) ; 

<  ) 

(  ) 

(  TRIES  TO  DETECT  AND  ZERO  AN  UNINITIALIZED  RECORD  ) 

(  NO  CHANGE  IF  ALL  FiaOS  ARE  'JM.ID.  } 

{  ) 

{  ) 

PROCEDURE  CHECXtUAR  S:  STRING;  NWdiN:  INTEI^ ; 
lAGa  1; 

'JAR  I:  INTEGER: 


51 


IF  tiN6TH(S)  >  HWLEN  THEN  GOTO  I; 

FOR  I:*l  TO  LENOTNCS)  DO 
IF  NOT  (Stil  IN  I'  IKN  GOTO  1; 

EXIT(CHECK);  (  STRIN6  IS  OK  ) 

1:  2EROREC(REO;  EXITIUALIOATD ; 

EM);  (  CHECK  ) 

BEGIN  (  VALIDATE  } 

NITH  REC  DO 
BEGIN 

CHECK(CLASS,C1ASSLEN); 
CHECX(HULLNO,HULLNOL£N) ; 

END; 

END;  (  VALIDATE  ) 


PROCEDURE  SHGNRECCREC:  SHIP) ; 

BEGIN 

G0TflKY(8,2);  CRT(ERASEOS) ; 

NITH  REC  DO 
IF  NOT  BUILDING 
BEGIN 

HRITELN('CIm:  CLASS); 

NRITELN('Huli  no.:  ',HULINO); 

«ITELN(  'Hu  spttd:  '  ,NAXSSPD) ; 

HRITELN('i  SAH:  '.NSAN); 

WITELN('SAN  SpMd:  ',»HSPO); 

NRITELN('I  SSH;  '.NSSN); 

HRITELN('S9(  Spud:  '  ,SSNSPO) ; 

END 
ELSE 
BEGIN 

HRITEIN< 'Class;  ', CLASS); 

NRITELN('Nu«:  ',NAN0; 

NRITELN('Hull  no.:  ',HULLNO); 

NRITELNL'Courso!  ' ,SCOURSO ; 

NRITELNL'Spffd:  ',SSPEED); 

HRITELN( 'X  Coopdinitf  ' ,XPOS) ; 

NRITELNL 'Y  Coordinate  ' .YPOS) ; 

NRITELN(  'Nu  speed:  '  .NAXSSPD) ; 

NRITELNt'l  SAM:  ',NSAM); 

HRITEIN('»M  Speed;  '.3AMSPO); 

NRITEIN('I  SSM;  ',NSSN); 

NRITE1N( 'SSM  Speed:  ' ,3SHSP0) ; 

EM); 

END: 


PROCEDURE  OW«EREC(U(«  REC:  SHIP;SSP0LEN,MSPDL£N,l«1Sa£N,NAMEIiN.3C0URSEL£N 


XPOSL£N,YPOSliN  :  IKTEGEW; 


BE61N 

IF  BUILDING  THEN 
BEGIN 

G0T(Kr(8,lS);  CRT(ERASEOS); 

PHCHPTAT(15/(PPfss  pfturn  for  no  change)'); 

END 

ELSE 

BEGIN 

GOnDOr(e,12);  CRnERASEOS); 

PR0MPTAT( 12, '(Press  return  for  no  change)') 

ev; 

HITH  REC  DO 
IF  NOT  BUILDING  THEN 
BEGIN 

G0T(S(r(8,14)5NRITELN<'  ALL  NUCRIOL  INPUT  ARE  INTEGERS!!  '); 
MRITE( 'Class;  ');  GETSTRIN6(CU«S,CWSSLEN) ;  HRITELN; 

MRITE('Hull  no.!  ');  GETSTRING(HULLNO.HULliOiN) ;  HRITELN; 
WRITE( 'Max  speed!  ') ;  GETIMTEGER(MAXSSPO.SSPOLEN>  ;HRITEIN; 

MRITE(  '•  381!  ') ;  GETIHTEGER(NSAH,1#1SLLIN)  ;liWTELN; 

HRITE('3IM  Speed!  ') ;  QETIHTE6ER(S«1SP0,MSPDL£N)  ;:3»TEU1; 

MilTEt'l  SSH:  ');  GETINTEGER(NSSH,!f1SLLEN);NRITELN; 

HRITE('SSH  Speed!  ');  GEnKTEGER(SSHSPD,t1SP0LEN);NRITELN; 

EW 

ELSE 

BC6IN 

GOT(KT(G,m;HRITElN('  ALL  HtfRICAL  INPUT  ARE  INTEGERS!! 
HRITE('N«e:  ') ;  eETSTRING(NflNE,NAMEL£N) ;  MRITEIN 

HRITE( 'Course!  (8-341)'); 

fSPEAT 

GETINTEGER(SCOURSE,SCOURSELEN) ; 

UNTIL  (SCOURSE  <«  348)  AND  (SCGURSE  )»  8);HRITEIN; 

MRITE( 'Speed!  (S-Maxspd)  '); 

REPEAT 

GETINTEGERISSPEED.SSPOLEN) ; 

UNTIL  (SSPEED  >  8)  AND  (SSPEED  <*  MAXSSPO  )  ;MRITEIN; 

WRITE('X  Coordinate;  (8-188) 

REPEAT 

GriNTEGER()(POS,XPOSLEN): 

UNTILC  XPOS  )*«)  AND  (XPOS  (=188)  ;HRITELN; 

HRITE('Y  Coordinate;  {8-lM) 

REPEAT 

GETINTEGER(YPOS,YP<KLBO ; 

UNTIL(YPOS  >»8)  AND  (YP08  <=  188) ;HRITELN; 

EM); 

END;  {  CHANGEREC  ) 


PROCEDURE  NENFILE; 


UAR  SUCESSRJL:  BOGIiAN; 

IREC,HAXREC:  INTEGER; 

BEGIN 

BUILDIN6:»FM.SE; 

aOSE(OATtfILE,LOC10;  {  IN  CASE  IT'S  ALREM)Y  QPe4  ) 
(I$I-I) 

REPORT 

GOTCKYd,!);  CRTIERASEOS) ; 

GOT(Kr(e,2) ; 

MRITELN('  Tm  Nistcr  datafile  is  :  BLUEHASTER  '); 

WITEUf('  INA  Q«n  datafile  is  :  BLUEGMC  '); 

NRITELNt'  For  new  database  use  different  naae.  '); 
PROfTATIB.'FileNaM:  ');  REAOLN(FIIilMIE) ; 

RESET(DATtf  ILE.FILENANO ;  (  TRY  TO  OPEN  AN  OLD  FILE  > 
SUCESSFUL  :»  (lORESULT^) ; 

IF  NOT  SUCESSFUL  THEN  <  STMTT  A  tCN  FILE?  ) 

BEGIN 

PRDMPTAT( 10, 'Start  a  new  file  ?  '); 

IF  YES  THEN 
BEGIN 

REMRITE(OATAFILE,FILENAN0 ; 

PROMPTATt  12, 'Reserve  h<w  many  records  ?  '); 
REAOLN(HAXREO ; 

SEEX(OATAFILE,HAXREO ; 

ZERORECCOATtf  ILE^) ; 

(*0I-« 

PUT(DATff  ILE) ; 

(Ifid) 

IF  (IORESULTO0)  OR  E0F<0ATtfIl£}  THEN 
BEGIN 

PR0MPTAT(14,'Not  enough  rooi.  Press  return  ') 
REAOIN; 

SUCESSFUL  :«FM.SE: 

END 

ELSE 

BEGIN 

{  INITIALIZE  CONTENTS  OF  FILE  ) 

FOR  IREC:>0  TO  NAXREC  DO 
BEGIN 

SEEX(OATAFILE,IREC} ; 

PUTiOATAFILE) ; 

END; 

aOSE(OATAFILE,LOCX) ;  (  LOCK  IT  IN  PLACE  ) 
RESET<IMTAFILE,FILENPNO ; 

SUCESSFUL  :>  (lORESULT  >  8); 

END: 

END; 

END: 

UNTIL  SUCESSFUL; 
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RECNII1:«-1; 

Li^CiW«E:>f^SE; 

MENU; 

D? 


lOCEOURE  CHANGE; 

;6IN 
(»HI) 

REPEAT 

PRCWTAT(2, 'Change  which  record  ?  '); 

REAOLN(RECNlll) ; 

UNTIL  I0RESILT>4; 

(»!♦*) 

S£EK(OArAFIL£,RECMH>; 

GETIDATAFILO ; 

IF  EQFdMTAFILE)  TKN  (  EXTENDING  FILE  >  ZERORECIDATAFILE*) : 
UALIOATEIOATAFILE*) ; 

SHOHRECIOATAFILE'')  * 

CHANGEREC(OATAFILE^SSPOLEN,HSPaiN,^lfiUiN,NWCL£N, 
XPOSLEN.YPOSLEN); 

SEEX(OATAFILE,RECNIIO; 

(»HI) 

PUTIOATAFILE) ; 

()f$I*« 

IF  (lORESULTCG)  OR  EOFIDATM^ILD  THEN 
BEGIN 

G(7T(KY(l,2t); 

i«ITELN(CHR(7),'UNMLE  TO  EXTEM)  FILE,  NO  DATA  NRITTEN'); 
HRITELN('Use  Filer  K(runch  coaund  to  a^e  soace  after  file.') 
EM); 

LASTCHANGE:«TRUE; 

«; 


roCEOURE  VIEH: 

:6IN 

<»!-« 

REPEAT 

PR0MPTAT(2/View  which  recwd  ?  '); 
REAOlN(RE(Hlf) ; 

UNTIL  I0RESU.T»«; 

(»I+« 

SEEK(0ATAFILE,REGMI1>; 

GETIOATAFILD ; 

IF  EOFIOATitf  ILE)  THEN 
BEGIN 

G0T0XY<8,4); 

MHITEI'Record  ',flECNll1/  not  in  file.'); 


WLI»TE(DATAFIL£*) 

SHGNRECCDATAFILE*); 

END; 

LASTCWN6E:«m.SE: 


RECM11:>ftECN(IHl; 

3EEK(DAWILE,RECNUH>; 

GET(DATAFILE); 

IF  EOF(DAWILE)  THEN 
BE6IN 

ZERORECCQATtf ILE*) ; 

IF  NOT  U^STCHFNGE  THEN 
BEGIN 

GOrCD(Y(8,4) ; 

NRITEC'Rtcard  ',RECNUH/  not  in  file/); 

£XIT(NEXT) ; 

END; 

BA; 

GOTOKYd,]);  MtITEt'RKord  nwAtr  '.REOUD; 

UM.IOATE(DATtf  IlE*) ; 

SHONRECdMTAFILE*) ; 

IF  U^CHANGE  THEN 
BEGIN 

CHANGERECCOATAFILE*  ,SSPOLEN,NSFOLEN,tl1SLliN.NANELEN.SCOU^^ 
XPOSLEN,YPOSLEN); 

SEEX(IMTAFILE,REO«IO; 

(»I-« 

PUKMTAFILE) ; 

(X$Ii» 

IF  (lORESULTOB)  OR  EOF(IMTAFILE)  IKN 
BEGIN 

GOra)(Y(0,2f) ; 

HRITELN(CHR(7)  ,'IIMLE  TO  EXTEND  FILE,  NO  DATA  MRITTEN') ; 
'XRITBiK'tJM  Filer  Kirunch  cowand  to  Mice  soace  after  file/); 
EM); 

END; 

D: 


OCEDURE  INSTRUCTIONS; 


CH  ;  CHAR: 


K6IN 

MRITELN('  MASTER  TMA  DATABASE  EDITOR  0 ; 

MRITELN; 

i4iITELN('  This  aodule  of  the  progria  allows  you  (the  user)  to  '); 
MRITELNI'  UIEM  or  (»INGE  an  existing  data  base.  '); 

NRITEliK'  In  addition  you  luy  create  a  new  data  base  by  using  the  '); 
MRITELNC^  FILE  cooMnd.'); 

HRITELN; 

MRITEUK'  You  begin  by  entering  the  FILE  NAME  of  the  data  your  ') ; 
HRITELN('  interested  in  or  the  FILE  NMC  of  your  NEM  data  base.  '); 
HRITEUI; 

MRITELNt'  For  exawple:  the  file  ORANGEIIASTER  contains  the  present  '); 
MRITELN('  library  of  Orange  ships  in  the  Master  TMA  data  base.  '); 
MRITELN('  Likewise,  for  the  file  BLUEMASTER.  '); 

MRITELN; 

HRITELN; 

HRITELN; 

MRITELN; 

MIITELN('  <  HIT  SPMXBAR  TO  CONTINUE  >  O; 

REAO(KEYBQARO,CH) ; 

END;  {  INSTRUCTIONS  } 

PROCEDURE  HELP; 

BEGIN 

GQT0D(Y(8,4);  CRT(ERASEOS) ; 

HRITELN('  X  HELP  :  ^planation  of  options  X  '); 

MRITELN; 

MITELNC'  V)iew  :  To  look  at  the  selected  database  0; 

HRITELN('  Ohange  :  To  change  any/all  elewcnts  of  the  selected  database') 

MiITELN('  N)ext  :  To  page  forward  to  the  next  record  '); 

HRITELN!'  F)ile  :  To  close  the  file  being  worked  on  and  start  another') 

HRITELN('  R)eturn  :  To  return  to  the  master  menu  '); 

HRITELN!'  H)elp  :  To  display  this  table  of  explanations  ') ; 

HRITELN('  Q)uit  :  To  terminate  the  database  manipulation  module  ') 

END; 


BEGIN  (  MAIN  PROGRAM  ) 
CLOSE(BLUGAME,LOCX) ; 
aOSE(BLllHIST.LOCX) ; 
CLOSE(ORNGAME,LOCX) ; 
aOSECORNHIST.LOCO ; 
CL0SE(ATIME.L0C]O ; 

CASE2:*  FALSE; 
INITFIA6;»TRUE; 
SCT(9(Y(B,8);  CRT(ERASEOS) ; 
INSTRUCTIONS; 

NENFILE; 

DBCALL£D:>TRUE; 


REPEAT 

IF  NOT  BUILOINS  THEN 

PR0HPTAT(8,'>[)eHASTERi  Udat,  CChangi,  N(ext,  F(ile,  RIeturn,  H)elp,  IDuitO 
aSE 


PRGHPTATd.ODSeUILOER:  Vdtw,  Clhangt,  N(ext.  F(iU,  R(tturn,  lOelp,  Q(uitO 
CH:»fiEtciWl<['M'  ,'n'  ,'F'  ,'4'  ,'V'  .V  ,'C'  ,'c' /r'  /W  .'h'  ,'0'  ,'q' W ; 
CRTIEMSEOS); 

0^  CH  OF 


'N'.'n';  NEXT; 

'F'.'f';  «NFILE; 

'V',V;  UIDi; 

'C','c';  CHANGE; 

'R',V:  MENU; 

'H'/h':  HELP; 

END; 

UNTIL  CH  IN  I'Q'j'q']; 

CLOSECOATtf ILE,LOCX) ; 

PR(H*TAT(  12, 'FINISH  DATA  BASE  HANIPULATIGN../); 
END; 


SEGHENT  PROCEDURE  HATIFUNC; 

UAR 

INDEX:  INTEGER; 

L:  CHAR; 

FNAtC:  STRINGIISI: 

GNAIC:  STRING!  IGl; 

GCOURSE,6SPEEO,(3(,6r!  REAL; 

SUCCESSFUL:  BOOLEAN; 

PROCEDURE  HSTART; 

MAR 

SUCCESSFUL;  BOOLEAN; 

BEGIN 

SUCCESSFUL:>TRUE; 

IF  OBCALLED  THEN  FNANE:«FIL£NANE 
asE 
REPEAT 

08CALLED:>TRUE; 

60T(S(Y(I,8)  ;CRT<ERASEOS} : 

S0T0XY(8,2); 

IF  HOT  SUCCESSFUL  THEN 

MRITEINI'  That  File  Him  is  not  on  this  disk'.! 

MRITEIN; 

NRITEINC'  HENGRY  AMAILMLE  IN  HORDS:  ',HEHAUAIU; 
MRITELN:MRITELN; 

WITELNt'  Default  im  gw  file  n«e  is  aUEQANE '); 
HRITELN('  If  you  have  previously  saved  another  gaae  '); 
MRlTaNt'  database  you  wish  to  use  type  that  file  nve  in. 
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i-'.- 


i 


f-' 


PRimAT(12/  FiltNMt!  ');REAOlM(FN(Ve; 
FILSiqNE:>flWC; 

(»I-D 

RESET(IMWILE,FN(»G;  (TRY  TO  QP{N  M  (10  FILE) 
SimSSFUL:«(iaRESULT«<); 

IJ4TIL  SUCCESSFUL; 

CLOSE(MTtfILE,LOaO; 

END; 

PROCEDURE  NINITCUM  PEC:  SHIP); 

PROCEDURE  TRmSFOIW; 

<jM 

T)iOPI:  R&l; 

BEGIN  (  TRPNSFOm  ) 

TN0PI:«2.liPI; 

GX:«  0X12.8; 

GY:«  IIY11.92; 

GCailiSE.-0C0URSEI<PI/18l.l) ; 

WHILE  GCOURSE  >  1N0PI  00 
BE6IN 

eCOURSE:*  (GCOURSE  -  TMOPI); 

END; 

EM);  (  TRPNSFORH  ) 

PROCEDURE  INITDISP; 
m  X,Y:  INTEGER; 

BEGIN  C  INITDISP  ) 

PENCOLOR  (NK); 

X:aROUN>((90; 

Y:«R0WD<6Y) ; 

MR«TO<X,Y); 

0RPML0CX(SHIPFI8,2,8,I,7,3^,Y,  II) ; 

NUH8ER(X,Y, INDEX) ; 

EW;  (  INITDISP  ) 

PROCEDURE  SETARRAY; 

BEGIN  (  SETARRAY  ) 

GCUSI INDEX] :-GCOURSE; 

(SPDI:M)EX}:«6SPEED: 

3(Y[1, INDEX]  :>«(: 

B(YI2.:NDEX]:«eY; 

SLUG(»C*:«GX;PUT(8LUGMO ; 

SLUGAHE*:«GY;PUT(BLU6ArC) ; 

BLUHISr*:aGX;PUT(BLUHISD ; 
aLUHISr*:«6Y;PUT(BLUHISD ; 

END;  (  SETARRAY  ) 

3E6IN  (  NINIT  ) 
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INITTWTLE?  TEXTOOOE;  TEXT:-  TRUE; 

REOUt:-«; 

RESET(MT<#ILE,FNMC}; 

RMITE(BLUH1ST,  'M:BLUEQLD.MTAO ; 

REMRITE(BLUGMC,  'i9:BLllENW.0ATA') ; 

WILE  (NOT  EQF(DATAFILE})  tUD  (RECNUH  <  II)  DO  SESIN 
SEEK(DATAFIL£,REGMIO; 

GCT(MTAFILO; 

NITH  REC  DO 

IF  (LENGTHCdASS)  >  1)  AND  (HAXSSPO  >  I)  TICN  BE6IN 
INDEX:-RECNUH1; 

NWSIUE.-INOEX; 

9WC:WIV€; 

6(»JRSE:-SC0URSE; 

6SPEED:-SSPEED; 

Q(:«XPOS; 

GY:-YPOS; 

TRmSFOm; 

SETARRAY; 

INITDISP; 

END; 

RECNU1:-RE(MfHl; 

END* 

aOS(OATAFILE,LOaO ; 
aOSE(BLUGH€,LOCK) ; 

0LUH1ST*:-  -99995  PUr(BLUHISD  5 
GRAFHQOE;  TEXTt-FALSE; 

SL(B10(C:«8LUEH0(C  *  1; 

CASEM:«TRUE5 

8LFIA6:«TRUE; 

EXITCNATHFIMC); 

END,*  (  MINIT  } 

PROSWRE  GETDATA; 

UAR  J:  INTEGER; 

BEGIN 

REMHTECORNHIST,  'M:ORN60L0.3ATA') ; 

J;«l; 

(»IH() 

RESETIOMAHE,  'IS:Omm(M.OATA') ; 

SUCCESSFUL:-  (IORESULT-<}; 

IF  NOT  SUCCESSFUL  THEN  £XIT(GETOATA) ; 

(»I+« 

HHILE  (NOT  EQF(OflC(VC))  fit€  (J  <-  ID  DO  BEGIN 
(B(Y(l,J]:«flRNIMlE*; 

GETIORNBME) ; 

GKY[2,J}:-0RNGANE*; 

Of»«IST*:-(KYM,J];  PUT(ORWISD; 

(lfiNHIST*:-(KYI2,J];  PUT(ORNHIST) ; 

J:-J  ♦  1; 
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8rr<0i»IGMC) ; 

END; 

HAXOmNGE:*  J  -  1; 

OlWHIST*:*  -9999;  PUKOWISD; 
aOS(ORNeMC,LOaO; 

END: 


PMCQXJRE  FIRSTHIXC; 

KGIN  (  firstaowt  > 

COiriNUE.’^TWE; 

TEXmOOE;  TEXT:«TRUE; 

SUCCESSFU.:«TRIJE; 

RBWITEMTirC,  'MzTINE.OATAO ; 

ATI«*:*TIHE;  POTCATIMO; 

REPEAT 

GGT0KY(l,«;  CRT(ERASEOS) ; 

GaTIKY(a,3); 

MtITELN('  !!!  F(U(M  T>€SE  INSTRUQKMS  !!!  0; 

MRITEIM; 

MRITELN; 

IF  NOT  SUCCESSFUL  TNEN 

MITELNC'  X  ERROR  HAS  OCCUREO  WHILE  TRYING  TO  REM>  OATtf  ILE  (M  DISK  «2  V) 
HRITELN; 

MITELNC'  1.  REHOUE  GttC  DISK  FROM  DRIVE  12  0; 

HRITELN; 

HRITEINI'  2.  EXCHANGE  DISKS  WITH  OPPONENT  '); 

HRITELN; 

MinELNC'  3.  PLACE  OPPONENT'S  UPOATQ  GAME  DISK  IN  DRIVE  12  0; 

HRITELN;  WITELN; 

MtlTELNI^  <  PRESS  RETUm  MCN  READY  >  '); 

HRITELN;REAOLN; 

GETDATA; 

UNTIL  SUCCESSFUL; 

QRANGEHOVEi-ORANGEHOVE  *  1; 

8LFLA6:-TRUE; 

END; 


PROCEDURE  NENUN; 

9EGIN 

TEXTMOOE;  TEXT:-  TRUE; 
OKSET:«I'A','a'/B','b','Q','q']; 

GOT0D(Y(8,S)  ;CRT(ERASEOS) ; 

PROHPTAT(§/>  You  fiav#  th#  Foilwing  choicos  '); 
SOTOD(Y(e,3); 

HRITELN! '  A)  Return  to  DATABASE  (  For  changts  )  '); 
HRITELN!'  9)  Continue  nith  the  gwe'); 

WITELN; 

HRITELN!'  Q}uit  (terainates  progree)  '); 
L:-OETCHAR!OKSED: 


I 


'B'.'b':  FIRSmOUE; 
'Q'/q':  EXIKTm); 
EM); 


BE6IN  {  mTNFUC  ) 

(!«R  TURTLEGiM>HICSC) 

(m  THESISliO 
CASES  :-MLSE; 

TIHE!»S; 

IF  NOT  CASESA  THEN  NSTART; 

IF  NOT  CASESA  THB4  H1NIT(0ATAFILE*) ; 
CASEBA:«FM.SE; 

REPEAT 

OKSET;*!'  '3; 

L:>GETCHMKOKSn  *  (CHR(27),CH)(8),CHR(2I)]) 
IF  L»CHR(  3)  THEN  L:»'0'; 

IF  L=C«(2n  THEN  L:«'U': 


BLFLA6!«TmE; 

CASESA:«TIIIE; 

EXn(NATHRfO 


BLFIAB.-TRUE; 

(»SE8As«TRUE; 

EXIT(mTHFUO 

EM); 

BEGIN 

RGTRFlA6:sTRUE 

CASESA:>TRUE; 

EXITINATHFlfO 

END; 


EM); 

UNTIL  L  >  CHR(27): 


HFIA61:  BOOLEAN; 


KEDURE  DISTSP0(0X.DY:  REM.^’VM  DIST 
BIN 

DIST:«  30RT(SflR(DiO  *  SOR(I)Y)); 

SPD:*  BIST  /  DELTAT  I  6S: 


RfCTIOt  DEGREES(iS(,Dy:  REMJ  :  IHTEGER; 

COIST  ERR  >  8.81; 

UM  UALUE:  INTEGER; 

BE8IN 

IF  (OX  <  (8*ERR))  40  (OX  >  (8>ERR))  THEN  BEGIN 
IF  (DT  <  (8«Ei«))  40  (OY  >  (8-EffiD)  THEN  DEGREES  8i 

IF  or  )  8  THEN  DEGREES  :>  188; 

IF  or  <  8  THEN  DEGREES  :«  3M; 

EXmOEGREES); 

END; 

IF  (Or  <  (8«ERR))  AND  (OT  >  (8-ERR))  THEN  EEGIN 
IF  ox  >  8  Tie;  DEGREES  :>  278; 

IF  OX  <  8  TKN  DEGREES  898; 

EXIT(DEGREES); 

END; 

UM.UE  :>  R(XIO(188  /  PI  I  ATAN  ([»(/Dr)); 

IF  A6S  (UALU0  <)  UMJJE  THOI  BEGIN 
IF  ox  <  8  THEN  DEGREES:*  188  *  UALUE; 

IF  ISO  8  THEN  OEGfKES:*  388  *  (JIAU£; 

EM) 

ELSE  BEGIN 

IF  OK  >  8  TICN  DEGREES:*  188  *  UALUE; 

IF  OX  <  8  TlfN  DEGREES:*  <M.UE: 

END; 

END; 

PROCEDURE  OISPIAY; 

MAR  J,X,r:  INTEGER; 

BEGIN 

PBCQLQRINOG; 

FOR  J:*  1  TO  NAXBLUE  DO  BEGIN 
X:*Ra(fO(  (Siri  1 ,  J]-X(mD/SCAL£)  M48 ; 
r  :*ROUO(  (BXri2,J]-YCTR)/S(^  «98; 

M(WET0(X,Y)  ; 

0RAHBL0CX(SHIPFIG,2,8,8,7,3,X,Y, 18) ; 

NIMER(X,Y,J); 

EM); 

FOR  J:*l  TO  NAXGR4CE  DO  BEGIN 
X:*ROUNO(  (QXri  1  ,J]-xaR} /SCALD  M48 ; 
Y;*ROlIO((axri2,J]-YC7R) /SCALD +98; 

«WET0(X,'O ! 

DmNGL0CX(SHIPFI6,2,8.8.7,3,X,Y,5) ; 

L£TTER(X,Y,J); 

EM); 

GRAR10DE:TEXT;*FALSE; 

END; 


PROCEDURE  YOURSIDE(TGT:  CHM;UAR  X,Y:  INTEGER); 
UAR  J:  INTEGER: 


BESIN 

J:>(H)(T6T)-QRD('9') ; 
X:>R0UC(S(Y[1,J]); 


Y:>ffiXI0<B(yi2,J]) ; 

EM); 

PROCEOUC  (mCRSIDE(TGT:  CHAR;VIAR  X,Y:  INTEGER); 

<JIM  J:  INTEGER: 

XX,YY;  REAL; 

BEGIN 

IF  TGT  IN  I'*'..'j']  TH04  J:«OfiO(TGD-GRD('aO  aSE 
J:»ORD(TGD-fllffl('A') ; 

X:*RO(N)<(]XY[l,J]); 

Y:»RaM)(OCft2,J]);  N 

END; 

PROCEDURE  RANGE; 

UMR 

X1,X2.Y1,Y2,0IST,X,Y,I:  INTEGER; 

DISTANCE, OELTAX.OELTAY:  REAL; 

TARGET  1,TARGET2:  CHM; 

BEGIN 

X:*9:Y:»R: 

6RAFN0DE;  TEXT:>fALSE; 

(]KSET:«l'0'..'9','A'..'J','i'..'j']; 

PENCOL(]R<MHITE): 

B(KSTRIN6(3,2/  RANGE:  LETTER  /  NIfflER  OF  1ST  SHIP  '); 

TARGET!  :>GETCHM(OKSED; 

IF  TARGET!  INI'0'..'9']THEN  YOURSIDE(TARGETI,X,Y)aSE  OTHERSIDE(TARGET!,X,Y) 
X1;=X:  Y!:=Y; 

BIKSTRING(3,2,'  RANGE:  LEHER  /  NUMBER  OF  2NO  SHIP  '); 

TARCET2:^CHAR(0KSET) ; 

aEWBQX; 

IF  TAR6ET2  INt'G'./P'ITHEN  Y0URSIDE(TAR6Er2,X,Y) 

ELSE  (nHERSIDE(TARGET2.X,Y) ; 

X2:=X:  Y2;»Y; 

OELT«(;=  X2  -  XI:  DELTAY;*  Y2  -  Yl: 

OISTANCE:>SQRT(SflR(OEL:AX  /  2.3)  t  SQRCDELTAY  /  !.?2)): 
DI3T:sROlN)(OISTANCE): 

XI  :>ROUND(  (Xl-XCTR) /SOVi)  *  148 ; 

Y1:=R(11M)(  (Y1-YCTR)/SCALD  *96; 

MOCTOCXl.Yl); 

PENCOLOR(NHITE) ; 

X2:>R0UN0(  (X>XCTR) /SCALE) « 148: 

Y2:=R0UN0( (Y2-YCTR) /SCALE) +94 : 

N01«T0(X2.Y2); 

PENCaORINOC); 


FOR  I:*  1  TO  2M8  DO  BEGIN 
Isal+l; 

END; 

60nKy(a,8);CRT(E»VSEOS); 

GOrOD(Y(8,4); 

NRITELN('  The  distance  Froi  'JAROETl,'  to  ',TARGET2,' 
NRITELN; 

MRrrElNt'  ',DIST,' NILES!  '); 

MiITELN;NRITELN;NRITElN: 

HRITELNt'  <  PRESS  RETURN  TO  CONTINUE  >  '); 

TEXTMOOE;TEXT:»TRUE; 

REAOLN; 

END; 

PROCEDURE  INTERROGATE; 

UM  COURSE, X,Y,TGT: INTEGER; 

TARGET:  CHW; 

SP0,0)(,DY,01ST:  REAL; 

PROCEDURE  rCSSAGE2; 

BEGIN 

G0TQXY(B,a);  CRT(ERASEOS) ; 

(j(lT(KY(8,d) ; 

MRITELNt'  The  course  and  speed  of  ship  a  TARGET,'  is 
MRITELN; 

MRlTEUti'  ', COURSE, '  Dtv^ees  ',R0UHD(SPD),' Knots ') 

MRITELN;i«tTELN;l«IITELN; 

HRITELN('  <  PRESS  SHURN  TO  CONTINUE  > 

TE}(TNOOE;TEXT:*TRUE; 

READLN; 

END; 

PROCEDURE  ICS»GE1; 

BEGIN 

TEXTMOOE;  TEXT:*  TRUE; 

GOTQXYte.a) ;CRT<ERASEOS) ; 

GOTOD(Y<8,d); 

MRITELNt'  Not  enough  data  to  ccapute  course  /  soeed  '); 
MRITE1N:NRITELN;NRITELN; 

MRITELNt'  <  PRESS  RETURN  TO  CONTINUE  >  '); 

READLN; 

EXmiNTERROGATD ; 

END; 


BEGIN  (  interrogate  } 

IF  ORPNGENQUE  <>  1  THEN  NESSAGEl; 

X;«8;  Y:«8; 

0KSET:«['8'..'9','A'..'J'/a'./j']; 

3HAFM0DE;  TEXT;«FALSE; 

B0XSTRIN8(3,2,'  INTERR;  9fTER  LEHER  /  NtHBER  OF  SHIP  '); 


TARGrr:»OETCHAR<OKSET) ; 

CL£(«fi(D(; 

IF  TAROT  IN  '9' 3THEN  BEGIN 
TGT:»flRO(TARGET)  -  ORO('B'); 

TGr:»TGT  ♦  1; 

DX:»<3U»Crn,TGT]  -  BXYtlJGTl; 

!)Y;»aDflXY[2,T(5T]  -  BXYI2,TCT3j 
END 

ELSE  BEGIN 

IF  TARGET  IN  t'a'..'j']  THEN  TGT:sORD(TARGET)-«D('a')  aSE 
TGT:»0R0(TAR6ET)  -  OFD('A'); 

TGT;=T(>T  ♦  1; 

OXisflLDQXYIlJGT]  -  QXYIIJGT]; 
iJY;aflLD(Kri2,TGTl  -  ffl(Yt2,TGT]; 

END; 

0X:3OX  /  2.8; 

IJY:=OY  /  1.92; 

TEXmOOE;  TEXT  .-TRUE; 

COURSE:^GREES(IK,OY) ; 

OISTSPO(D(,OY,OIST,SFD) ; 

HESS«E2; 

END; 

PROCEDURE  STARTIT; 

BEGIN 

IF  QRAFFli«  THEN  BEGIN 
GRtfNOOE; 

TEXT:»FALSE; 

GRAFFU«:*FALSE; 

END 

aSE  BEGIN 
TEXTMODE; 

TEXT;*TRUE; 

END; 

END; 

PROCEDWIE  3TOPIT; 

BEGIN 

RRFli«:»FAL3E; 

TEXTHODE;  TEXT;=TRUE; 

3UITFLHj:=TRUE; 

EXIT(MOTICN) ; 

END; 

PROCEDURE  ICNU: 
i^AR 

CH:  CHAR; 


60T(&Y(8,a)  ;CRT(ERASEOS) ; 

G0T(KY(8,5); 

MRITEllK'  A)  A(^>me  to  next  tiae-step 

MRITELN('  B)  OraM  range  circle  around  a  specified  unit  '); 

NRITELN('  0  Coipute  range  between  units  '); 

WRITELN('  0)  Oeteraine  CPA  {  aOSEST  POINT  <3r  APPROACH  BEIViEEN  HUTS  )') 
HRITELNI'  0  Coipute  and  display  Course  and  Speed  of  units  0; 

MITEN(' P)  ChecK  /  Change  iMvcaents  of  a  unit  '); 

HRlTELNf'  6)  CoMUte  Intercept  fro*  one  unit  to  another 
WRITELNI'  H)  Clear  screen  '); 

WRITELN; 

WRITELNt'  Q)  QUIT  THE  TMA  PROSWM  0; 

WRITELN; 

MtITELNt'  [<-]  Downscale  display  O; 

WRITELNt'  [->]  Upscale  display  ')} 

MRITELNt' [space!  Recenters  display  0; 

l^ITELNt'IESC!  Toggles  display  between  text  and  graphics  0; 

CH:»6ETCHAR(0KSEr*  [CHR(27) ,CHR(8) ,CHR(21) ,CHR(32) 3) ; 

CRTIERASEOS) ; 

IF  CIKHR(8)  THEN  CH:«'R';  (  left  arrow  >  reduce  scale  ) 

IF  CJWM«21)  THBI  CH:='r;  C  right  arrow  >  increase  scale  ) 

IF  (C}KHR(27»  AND  (TEXD  THEN  BEGIN 
GRAFmOE; 

TEXTsaFALSE; 

CHsa'2'; 

EM) 

ELSE  IF  (C»=CHR(27))  AND  (NOT  TEXD  THEN  BEGIN 
TEXmOOE; 

TEXTiaTRUE; 

CH:a'Z'; 

END; 

CASE  CH  OF 

'A', 'a'!  BEGIN 

TFUI65;=TRUE; 

EXITCMCTION) ; 

END; 

'B'/b';  BEGIN 

TFIA67:=TRUE; 

EXIT(HOTION) ; 

END; 

'C'.'c';  RANGE; 

'D','d';  BEGIN 

TFU«3;«TRUE; 

EXIT(NOTICN); 

END; 

'E'/e':  INTERROGATE; 

'F'/f's  BEGIN 

TFliWl:=TRUE; 

EXIT(MOTICN) ; 


END; 

'G%'9';  begin 

ICPTFUW;»TMJE5 

3LRA6:»T!n£; 

TFIAG2p»TI«JE; 

EXIT(HQTiaN); 

END: 

'H'.'h':  BEGiN 

INITTURTLE; 

5LFLA6:»TRUE; 

CONTINUE :sTRUE; 

EXIT(mTIGN) ; 

EM); 

'R'  ;  BEGIN 

OOWSGALE; 

BLFLA6:»TRUE; 

TFLAG2:«TRUE; 

EXIT(MOTICN) ; 

END: 

'V  t  BEGIN 

UPSCALE; 

8LFlA6:sTRUE; 

TFIAG2;»TRIE; 

EXITIHOriOO ; 

EM); 

'  '  :  BEGIN 

RCTRFIA6:«TRUE; 

TFW62:*T1WE; 

EXIT(HOTION) ; 

END; 

END; 

IF  (01  >  'R')  OR  (0(  a  'I')  OR  (01  »'  ')  THEN  GRAFWOOE 
UNTIL  CH  IN  [  'Q'/q'  ); 

STOPIT; 

END: 


BEGIN  (  Mtion  > 

(m  TURTLEGRAPHICSX) 

(ItR  THESISBE) 
im  TIWNSCENOI) 

IF  (TFLA66)  OR  (CONTINUE)  THEN  OIOWY; 
CONTINUE:sfW.SE; 

TFLAG2:«FALSE; 

TPjW4:aFALSE; 

TFLAG4:^ALSE: 

HENU: 

END; 

SEGNENT  PROCEDURE  CIRCLE; 
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PmCEDURE  CIRCPMT; 

UAR 

X,Y,Ifi(,W,I,mNGE,mNGELEN:  INTEGER; 

RX,RY,RAOIUS.TKETA:  REAL; 

TMGET:  CHM; 

OOT:  BOOLEAN; 

PROCEDURE  Y0URSIDE(T6T:  CHM;VM  X,Y:  INTEGER); 

>JAR  J:  INTEGER; 

BEGIN 

J:*OfiO(T(Jr)-flRO('9'); 

X:»R0UND(  (BXYI 1  .Jl-XCTR) /SCALD 
Y;=«flUN0«BXY[2,J]-YaR) /SCALD +94; 

END; 

PROCEDURE  OnCRSIDETTGT:  CHAR;UMi  X,Y:  INTEGER); 

'MR  J:  INTEKR; 

BEGIN 

IF  TGT  IN  I'a'./j'I  THEN  J;=flRD(TGT)-(]RO('»0  aSE 
J:=ORO(TGD-OflO('A'); 

J;»J*1; 

X;*ROlM)(  ((KYI  1 ,  J]-XCTR)/SC«.D  ♦  MB; 

Y:=«OUNO(  (aXY[2,J]-YaR) /SCALD +94; 

EM); 

BEGIN  C  circleoirt  ) 

<I$R  TURTLEGRAPHICSS) 

(XBR  TRANSCEM») 
im  THESISBI) 

TFLAG7;=f«.SE; 

TFIA62;»TRUE; 

D0T;=TRUE; 

RANGELEN:a3; 

GHAFMOOE;  TEXT;=FAL3E; 
0KSn:«rB'..'9'/A'..'J'/j'..'j'3; 

PENCflLOR(WHITD ; 

3(KSTRIN6(3.2/  CIRCLE:  EITIR  LETTER/TRIfiER  (KIGIN  ') 
TARGET  ;=«TCHAR(OKSED ; 

IF  TARGET  IN  ['8'.. '9']  THEN  YOURSIOE(TARGET,X,Y) 
aSE  !JTHERSIOE(TARGtT.X,Y); 

3(KSTRIN6(3,2/  CIRCLE:  ENTER  DESIRED  RANGE  OF  CIRCLE  '> 
GETINTEGER(RANGE,RANGa£N) ; 

CLEARBOX; 

RAOIUS:*RANGE; 
fWrO(X,Y) ; 

FOR  I:>  1  TO  118  DO  BEGIN 
THnA:*8.82II3(PI; 

3X;a(HADIUSil2.3*SIN(THETA)/SCAL£+X) ; 
RY:«(HAOIUS*1.923(COS(THETA)/SCALE+Y) ; 


'«:>fHXN)  (RX) ; 

NY:affilN)  (RY); 

DMHBLOCKCDOT,  1,0,8, 1 , 1  ,hC(, NY,  1» ; 
flOWETO(X.Y) ; 

EN); 

END; 

PROCEOUS  AOVIPMTT; 

UM  TESTVALUE:  REAL; 

PROCEDURE  MOUEIT; 

PROCEDURE  HS68; 

BEGIN 

(iOTOD(Y(8,0);  CRT(ERASEOS) ;  GOTGD(Y(8,3): 

HRITELN('  <  M  REPW  PORTION  OF  TMA  IS  TEIWIWTED  >  0; 

;«ITELN; 

MRITELN('  NO  MORE  DATA  EXISTS  ON  FILE  '); 

NRITELN; 

MRITEINI'  THAMC-YOU  FOR  PLAYING  7HA  ~  PRESS  RETUIW  TO  CONTINUE  ') ; 
TEXTMOOE;  TEXTtsTRUE; 

REAOIN; 

TFLA63:»FALSE; 

RRFlitt:aFALSE; 

aiITFLA6:aTRUE; 

EXmCIRCLE); 

END; 


PROCEDURE  GETGLUE: 

UAR  J:  INTEGER; 

BEGIN 

TESTVALUE:*8; 

NHILE  (NOT  EOF<BLUHISD)  AND  (TESTVW.IE  >  •???)  00  BEGIN 
^<K.UHIST) ! 

IF  EOF<BLUHIST)  THEN  NSG8; 

IF  J  >  10  TH0<  £XIT(GETBLUE) ; 

IF  TESTUALUE  <  -999  THEN  EXIT(GETBHiD ; 

0U»(Y[1,J]:=  aXYIl.J]; 

3XY[1,J];*8LUHIST'‘; 

GET(8LUHIST) ; 

3LI»(Y[2,J1:>  aXY[2,J]; 
aXY[2,Jl;»8LUHIST*; 

J:aJ  ♦  1; 

MAXBLUE;*  J  -  1; 

EM); 

END; 

PROCEDURE  GET0RAN6E; 

UAR  J:  INTEGER: 
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SESIN 

J;»l; 

TESTWLUE!”i* 

WILE  (MOT  EOFCCfiNKIST))  WD  (TESTVALUE  >  -W>  DO  9EGIM 
GETCOfMlISD ; 

IF  £QF(0>MIISD  THEN  HS8I; 

IF  J  >  II  THB(  EXmGETOMNGE); 

IF  TESTVW.UE  <  -999  THEN  EXIKGETOHANeE) ; 
aLl)(]XY[l,J]:«  l])Cr(l,J]; 

(KYIl,J]:»flfiNHIST*; 

GET(OII«ISD; 

QLOOD(yi2,J}:>  (KY(2,J1; 

(KYt2,J]:=0flNHIST*; 

J:5»J  ♦  1; 

HAXafMN6E:«  J  -  1; 

EM); 

END; 

8E6IN  {  Mvcit  } 

GETBLUE; 

BLUEHOUE:>aLUEN(ME  *  1; 

GETOMNGE; 

QfMCENOUE:*OMNGE)m  t  1; 

TFWW:«TRUE; 

!»(#Fli»:>TRUE; 

6ET(ATir0 ; 
oaTAT:»ATIHE*; 

TI«:*TIIC  ♦  OELTAT; 

BLFlA6:sTRUE; 

EXIKAOVIPARD ; 

EM); 

PMCEOURE  MENU; 

OAR 

CH:  CHAR; 

3E6IN 

IF  GMFFLAG  THEN  BEGIN 
6RAFN0DE: 

TEXT:*  FALSE; 

END 

ELSE  BEGIN 
TEXTMOOE; 

TEXT:sTRUE; 

END; 

REPEAT 

0KSET;»t'A','a'/O','q']; 

GOTOXYd,!)  ;CRT(ERASEOS) ; 

GOTCD(Y(8,5) ; 

NRITEIN('  fO  Advance:  nowe  ships  lo  new  positions  based  on  ti»e-steo') 
WRITEIN('  Q)  Quit  :  return  to  orooram's  outer  level  '); 
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MRITE1M;MRITEU4;MRITELM; 

NRITEUW'  m<  USE  'ESC*  KEY  TO  TOGGLE  BEDCEN  TEXT  6IWHICS  )*«  ' 
CH:»GETOttR(ffl(SET*  [CHR(27)  .CHMG)  ,CHR(21>  ,0«(32)  3) ; 

CRT(ERASEOS); 

IF  CH<HR(8)  TVCN  CH:»'R';  {  le^t  appow  >  rcduct  scale  ) 

IF  CIKHR(21)  ■n®l  CH:»'r;  {  right  arrow  >  increase  scale  ) 

IF  (CMHR(27))  AND  (TEXD  TtCN  BEGIN 
GRAFMOOE;  TEXT;«FALSE5 
CH:*'Z'; 

ENO: 

IF  (aKHR(27»  AM)  (NOT  TEXT)  THEN  BEGIN 
TEXTMODE;  TEXT;=TRUE; 

END; 

(XiSE  (»  OF 

'A',V:  NOUEIT; 

'R'  :  BEGIN 

OdMSCALE; 

BLFLAG:*TRUE: 

TFLA6S:«TRUE; 

EXIT(AOUIPMT) ; 

END; 

M'  :  BEGIN 

UPSCALE; 

SLFUtG:»TRUE; 

TFLAGSs’THUE; 

EXIT(AOVIPART) ; 

END; 

'  '  :  BEGIN 

RCTRFli«s=TRUE; 

TFU«5:»TRUE; 

EXIT(AW1PARD; 

END; 

END; 

IF  (CH  a  'R')  OR  (CH  a  'I')  OR  (CH  »'  ')  THEN  K6IN 
0HAFMOOE;  TEXT:=  FALSE; 

END; 

UNTIL  CH  IN  [  'O'/q'  ]; 

TEXTMOOE;  TEXT.-aTRUE; 

TFLA66;*TRIE; 

END;  (  Mnu  } 


BEGIN  {  a;h;loart  } 
(I$R  TURTLEGRAPHICSJ) 
OMR  THESISBX) 
TESTVALUE.-B; 
TFLAGSiaFALSE; 

MENU; 

END;  (  advl  ) 
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BE6IN  (  cas*  > 

IF  TFIA67  THEN  CIRCPART; 

IF  TFIA65  THEN  AOVIPMT; 

END; 

SEOCNT  PROCEDURE  MIUPNCE; 

<JM  TOT:  INTE6ER; 

PROCEDURE  HOl€IT; 

UM  I,DaTATLEN:  INTEGER; 

NEM(,ICHir:  PACKED  ARRAY  11..  18]  OF  REM.; 
SUCCESSFUL:  BOOLEAN; 

SPEED:  REM.; 


PROCEDURE  GETDATA; 

UM  J:  INTEGER; 

BEGIN 

(X8I-I) 

RESET(OINiMC,  'IS:ORNGNQN.OATAO; 

SUCCESSFUL:*  (I0RESULT*8); 

IF  NOT  SUCCESSFUL  TtCN  EXIT(GETOATA) ; 

(HItX) 

MULE  (NOT  EOFIORNGMC)  AND  <J  <*  18)  DO  BEGIN 
aLO(DCr[l,J]:*  (]XY[1,J1; 

GKYTIJIpORNGMC*; 

OM»ST*P(BCytl,J];  PUTCOENHISD ; 

SET(ORNGMG; 

(]L00Xr(2,J]:«  QKY[2,J]: 
a(Y[2,J]:*0RNGMC*; 

(}il«llSr*:«a)(Y(2,J];  PUTTGINtlSD; 

SET(OIMGMC); 

J:«J  ♦  1; 

EM): 

NMCORANGE:*  J  -  1; 
aOSE<ORNMC,LOQO ; 

(WNHIST*:*  -9W;  PUTIORNHISD; 

END; 

PROCEDURE  CIKGOISK; 

GEGIN 

SUCCESSFUL:*  TRUE; 

REPEAT 

TEXTHODE;  TEXT:*  TRUE; 

GOrQ9(Y(8,8);  CRT(ERASEOS) ; 

G0TaKY(8,a); 

M»TELN('  !!!  FOLLW  THESE  INSTRUaiQNS  !!!  '); 

MilTElN; 

MUTELN; 

IF  NOT  SUCCESSFUL  THEN 

MRITELNT'X  ERROR  HAS  OCCURED  MHILE  TRTING  TO  REM)  DATAFILE  ON  DISK  12  I') 
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MRITEN; 

WITELNr  1.  REmC  GMC  DISK  FRCH  DRIVE  12'); 

HRITELN; 

HRI7E1M('  2.  EXCHANGE  DISKS  MITH  QPPOENT 
NRITELN* 

M»TELN('  3.  PLACE  OPPOCNT'S  UPDATED  SANE  DISK  IN  DRM  12  0; 
NRITELN; 

NRITEIN('  <  PRESS  RETURN  MCN  READY  >  0; 

NRITELN, -RBALN; 

GETOATA; 

tKTIL  SUCCESSFUL; 

ORANGEHaUE:«ORANGEHOUE  *  1; 

BLU£MOUE:=aLUEM)UE  *  1; 

9C; 

BEGIN  (  aoweit  ) 

TEXTMOOE;TEXT!=TRUE; 

DaTATLEN:>2; 

6GTt9(Y(l,a);CRT(ERASE0S); 

G0r(S(Y(8,2); 

WITELN; 

NRITELN('  Enter  desired  tiac  step  (  DELTA  T  )  Tor  the  first  mint/) 
NRITELN; 

NRITEt'  in  ainutes  (I  ~  99);  ');GETIKrEGER(DaTAT,oaTATliN) 
NRITELN; 

IF  QLDGAHE  TICN  REMilTEtATIHE,  'MtTINE.DATAO ; 

OLDGANE:>FALSE; 

ATIIC*;»OELTAT;  PUTtATItC); 

RENRITE(BLUGANE,  'f5:BLUEN(M.OATAO ; 

FOR  I:>  1  TO  NfWGLUE  DO  BEGIN 
SPEED:«6SPO[I]I(OELTAT/dl.a) ; 
tOC(I  I  ]  :>SXY[  I  ,nt(SPEEI»2.3XSIN(GCUSn  I) ) ; 

OLDBXYIl.I];*  BXYIl,!]; 

BKYI1,I]:>  lfW(II}; 

BLU&INE^  1 1  ;PUr(BLUMC)  ; 

BLUHIST*:>NEM(n];PUr(GLUHIST) ; 

NEMYI 1 1  :>eD(Y[2,I  lt(SPEEDXl  .92IC0S(GCUSI  ID  > ; 

0LDB(yi2,I]:=  3XY[2,I]; 

3XYI2.I]:*  NEHYII]; 

3LUGANE*  :>NEMYI  I  ]  ;PUT(GLU»IHE} ; 
aLUHIST*:«NEMYII];PUT(BLUHIST) ; 

END; 

3LUHIST'‘;«-9999;  PUTtBLUHISD ; 
a0S£(8LUGANE,L0CX}; 

OMDISK: 

TFLA6d:>TRUE; 

Sn^FlAGfTRUE; 

TIHE;»TIME  ♦  OELTAT; 

BLFLA6:«TRUE; 

EXIT(AOUANCO ; 


END; 

PROCEDURE  C»«OATA(I:  INTEOER); 

UAR  SPO,SPOLEN,CUS,CUSLEN:  INTEGER; 

BEGIN 
SPI}LB4:>2; 

CU9iN:«3; 

CUS:»RO(N}(GCUSn]  31  ISI  /  PI); 

SPO:>ROlN)(GSi>DII]); 

MRITEU(;MRITELN; 

MRITELNI'  ALL  NUCRICM.  INPUT  IS  INTEGER!!  O; 

NRITELN; 

MRITE('  Coutm:  (8-3^)  0; 

REPEAT 

GETINrEGER(CUS,CUSLEN); 

IMTIL  (CUS  >  8)  AND  (CUS  <»  368);  MRITEIN; 

GCUSIII:*  CUS  3!  PI  /  188; 

MITEI' Spttd  :  (8-48)  '); 

REPEAT 

GETINTEGER(SPO,SPOIiN) ; 

UNTIL  (SPD  >-  8)  AND  (SPD  <>  48) ;  NRITELN; 

GSPOIIl:*  SPD; 

END; 

PROCEDURE  SHdfiATAd:  INTEGER); 

UMR  YESNO:  SETOFCHM; 

ANS:  CHAR; 

BEGIN 

YESNO:«('Y',y,'N'/n']; 

TEIONOOE;  TEXT:*  TRUE; 

G0nKY(8,8};  CRT(ERASEOS) : 

G0T(]XY(8,3) ; 

NRITE('  Ship  8  :  ');NRITE(I-1);MIITELN; 

MRITEI'  X  Coordinate:  ')  ;NRITE(ROU«(GXY[l,n  /  2.3  )); 

NRITEUN'  niltf  '); 

HRITEI'  Y  Coordinate:  ')p«ITE(R0lH)(B)(YC2,I]  /  i.P2  )); 

XRITELNt'  Biles  '); 

l«ITE('  Course  :  ');WIITE(R01H)(GCU8II]  *  388  /  PI)); 

4RITEIN('  dev'ees  '); 

i«UTE('  Speed  :  0  ;MIITE<RO(M)(6SPO[I]  )); 
i«ITElN('  Knots  '); 

«ITELN;NRITELN; 

«ITE('  ^  changes  (Y/tO  ?  ');ANS:»  GETCHAR(YE9«  ♦  [CHR(  13)  3)  ;NRI7ElNi 
IF  (ANS  *  'Y')  OR  (ANS  «  'yO  THEN  OMOATAd); 

9«; 

PROCEDURE  NOOALL; 

BEGIN 

TEXTNOOE:  TEXT:*  TRUE; 


5 


FOR  TGT:«1  TO  HWBLUE  DO  BE6IN 
SH(M»TA(T6T}; 

END; 

END; 

PROCEDURE  HODONE; 

UM  T6TLEN:  INTEGER; 

BEGIN 

TEXTNODE;  TEXT:>  TRUE; 

TGTL8l:si; 

GOTQD(Y(0,8};  CRTIERASEOS) ; 

60TGKY(B,3); 

MRITEIN('  Enttr  mabir  of  ship  Mhosc  paraMters  you  Mish  to  change  ') ; 
WRITELNt'  (8-9)  '); 

REPEAT 

GETINTEGER(T&T,T6TLQO; 
tMTIL  (TGT  >  8)  PND  (TGT  <3  9) ; 

HRITEIN; 

3H(M0ATA(TGT>1); 

END: 


PROCEDURE  UIENIT; 

UAR 

CH:  CHAR; 

BEGIN 

TEXINDOE;  TEXTfTRUE; 

REPEAT 

ONSET:-!' A' . /B' ,  V . . 'b' , '0' , 'q' ] ; 

GOTQKY(8,8);CRT(EHASEOS): 

60T0Kr(8,3): 

NRITELN;NRITElN;MnTELN;MRITELN; 

MRlTELNt'  A)  View  /  Modify  ail  ships'  parwettrs  '); 

HRITEINC'  3)  Vi w  /  Modify  one  ship's  parancters  '); 

MiITELN('  3)  Quit  :  return  to  ore/ious  lenu  '); 
HRITELN:MITEm:MRITElJ(; 

WRITELN('  IH<  USE  'ESC'  KEY  TO  TOGGLE  BETNEEN  TEXT  AND  GRAPHICS  »(»  ') ; 
CH:-GETCHAR<OKSET>  !CHR(27)]): 

CRTtERASEOS) ; 

IF  (CMHR(27))  AND  (TEXT)  THB(  BEGIN 
3RAFM00E;  TEXT:>FALSE; 

CH.-'Z'; 

EM) 

ELSE  IF  (CIKHR(27))  AND  (NOT  TEXT)  THEN  BEGIN 
TEXTNODE;  TEXT:-THUE; 

CHi»'Z'; 

END; 

CASE  CH  OF 

'A'/a';  MODALL; 

'B'/b':  MODOC; 

END; 
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UNTIL  CH  IN  [  'Q'/q'  ]; 

10;  {  viewit  ) 

lOCEDURE  MENU; 

IR 

CH:  CHAR; 

;6IN 

IF  GRAFFlitt  THEN  BEGIN 
0WWJDE;  TEXT:=fALS£; 

GRtfFLAG:>FALSE; 

END 

aSE  BEGIN 

TEXTNOOE;  TE!a:=TI«iE; 

END; 

REPEAT 

QKSET:at'A'..'B','a'..'b','Q','q'l; 

GOTCD(y(0,0)  ;CRT(ERASEOS) ; 

GQTIKy(B,3); 

WITELNI'  fii  VicM  :  prtstnt  ship  positions,  courses,  and  sptcds  '); 

HRITELNI'  B)  A(h/ance:  ncn/e  ships  to  nm  positions  based  on  tine-step') 

MITELNt'  G)  Quit  :  return  to  prograa's  outer  level  ') ; 

NRITELN;MRITELN;NRITELN; 

WITEINI'  m<  USE  ‘ESC*  KEY  TO  TOGGLE  BETMEEN  TEXT  AND  GRAPHICS  >IXi(  ') 
CH:»GETCHAR(aKSET>  tCHR(27),CMi(3},CHR(21),CHR(32)l}; 

CRT(ERASEOS); 

IF  OWHRtB)  THEN  CH:»'R';  (  leFl  arrow  >  reduce  scale  > 

IF  OWHR(21)  ^  CH:*'!';  (  right  arrow  )  increase  scale  ) 

IF  (CI^CHR(27)>  AM)  (TEXT)  T«N  BEGIN 
GRAR100E:  TfXT:*FALSE; 

CH:*'Z'; 

ENO 

aSE  IF  (CH>CHR(27))  AND  (NOT  TEXT)  TICN  BEGIN 
TEXTNOOE;  TEXT:*TRUE; 

CH;»'Z'; 

END; 

CASE  CH  OF 

'A', 'a'!  VIENIT; 

'B','b';  NOUEIT; 

'R'  ;  BEGIN 

OWtSCALE; 

aLFlA6:*TWJE; 

TFIAG3;*TI«JE; 

TFIA66:*FALSE; 

EXIT(M)UANCE) ; 

END: 

'I'  :  BEGIN 

UPSOIE; 

BLFU)6:>TRUE: 

TFIA63:*TRIIC: 

TFlA6d!«FALSE; 


/  / 


EXIKAOMANCD ; 

QO; 

:  BEGIN 

RCTRaA6:-rRUE; 

TFLAG3:»TRUE; 

TFUt66:»FALSE; 

EXIT(AfMMCE) ; 

END; 

END; 

IF  (CH  *  'R')  OR  (CH  a  'I')  OR  (CH  ='  ')  T]«N  BEGIN 
GRAFNOOE;  TEXT:^  FALSE: 

END; 

UNTIL  CH  IN  I  I; 

TEXTMODE;  TEXT.-aTRUE; 

TRj^:aTRUE; 

EXITCAOUANCE) ; 

END;  (  gwnu  } 

KGIN  (  aA/ance  ) 

(IW  TURTLEOMPHICSI) 

(3»R  TRANS»«I) 

{()»R  THESIStX)} 

TFLAG5:«FALSE; 

TFlA6A:aTRI£: 

MENU; 

END;  (  a(K/vice  ) 

SE13CNT  PROCEDURE  CPA; 

UAR  TAR6ETl,TARGEr2:  CHAR; 

XI1,YG1,X11,Y11,0X1,0Y1,XG2,YG2,XI2,Y12,0X2,0Y2:  REAL; 
BEARING, C0URSE1,C0URSE2,TGT1,TGT2, 1. ;<Xi,XX2,YYl,'rr2:  INTEGER 
CPAT,W(l,UX2,Wl,VY2,CUSl,aJS2,T:  REAL; 
0IST,0EN(l1,SPOl,SPD2,0X,DY,0UX,0UY:  REAL; 


PROCEDURE  SPEED(OX,OY:  REAL;\M(  SPD:  REAU ; 
BEGIN 

3IST:aSQRT(Sai(IIX)  *  SQR(DY)); 

SPO;a  OIST  /  OELTAT  I  oG; 

END; 


FIICTIQN  !}E6REES(0X,DY:  REMJ  :  INTEGER: 

CONST  ERR  a  9.31; 

UAR  >JALl£:  INTEGER; 

BEGIN 

IF  (OK  <  (l«ERR)}  AND  (OX  >  (9-ERR))  THEN  BEGIN 
IF  (OV  <  (i+ERR))  AND  (DY  >  (0-ERR))  THEN  DEGREES  ;=  B; 
IF  DY  >  8  THEN  DEGREES  :«  188; 

IF  OY  (  8  THB(  degrees  :a  338; 

EXIT(DE6REES} ; 

END: 

IF  (DY  <  (0+ERR))  AND  (OY  >  (8-ERR))  THEN  BEGIN 
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IF  ox  >  i  THEN  DEGREES  :*  27S: 

IF  OX  <  S  THEN  DEGREES  :>  I9«; 

EXmOEGREES); 

END;  • 

*MLUE  R0(N)(!88  /  PI  i  Aim  (OX/DY)): 

IF  ASS  (\MLU0  (>  UALUE  TMN  BEGIN 
IF  DX  O  THEN  DEGREES:*  188  t  UMLIJE: 

IF  OX  >  8  THEN  DEGREES:*  368  *  VALUE: 

END 

aSE  BEGIN 

IF  DX  >  8  THEN  DEGREES:*  188  4  VM.UE; 

IF  DX  (  8  THEN  DEGREES:*  VALUE: 

END; 

END; 

PROCEDURE  TYPEl; 

BEGIN 

TGTl:*flRD(TARGETl)  -  0RD('8'); 

TGTl;*TCri  ♦  1; 

X81:*QLI»(Y[1,TGT1]; 

Y81:*flU)BXYI2,TGTl]; 

Xll;*flXYIl,TGTl]; 

Yll;*flXY[2,TGTl]; 

DXl:*  X81  •  XU; 

OYl;*  Y81  -  YU; 

END; 

PROCEDURE  TYPE2} 

BEGIN 

IF  TAHGETl  IN  I'a'./j']  THEN  TGTl;»flRD<T«ICETl)  -  0RD('*')  aSE 
T(jT1;»0R0(TAR6ET1)  -ORDI'AO; 

T6T1:*TGT1  ♦  1; 

I  XSIpOUXKYIUTGTU; 

Y81:*flLD0XYl2,TGrU; 

XU;*<KYn,TGTl]; 

Yll:*0{YI2,:Gri]; 

DX1;=  X81  -  XU; 

DYl;*  Y81  -  YU: 

I  END; 

PROCEDURE  TYPES; 

BEGIN 

TGT2;*0RD(TAR6ET2)  -  ORO('8'); 

TGT2;*TQT2  ♦  1; 

X82;*0LDBXYtl,TGT2]; 

Y82:*aDaXYI2,TGT21; 

X12:*GXYI1,TGT2]; 

Y12:*®{Y[2,TGT23; 

0X2:*  X82  -  X12; 

0V2:*  Y82  -  Y12; 

!  END; 
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IF  T<«Gn2  IN  I'a'..'j'3  THEN  T(iT2;»0I»(TARG£T2)  -  ORD('aO  aSE 
TCT2:=flH0(TARGET2)  -  OWX'A'); 

T5T2:»TBT2  ♦  1; 

X82:s(]LDGD(Y[I,T(>T2]; 

Y02!»OLIXKYI2,TGT2]; 

X12;aflD(YIl,TGT2]; 

Y12;»(KY[2,TSr2]; 

0X2:*  X82  -  X12; 

OY2:*  Y02  -  Y12; 

ENO; 

PmCEOURE  DflMLIICS; 

VAR  Xl,Yl,X2,Y2,0X,iJY,SPO3;  SEAL; 

3E6IN 

GRAFNODE;  TEXT:-  FALSE; 

PENCOLOfKNQNE) ; 

XXI  :aRO(M)(  (X 1  l-XCTR) /SCALD  1 148 ; 

YYl  ;*Raie(  (Y1 1-YCTR)/SCALD  *H-, 

HOU£TO(XX1,YY1) ; 

FENCQLORIHHITD; 

XXI  :»iHIIM)(XXl«(T»JX»2.a/SCALD ) ; 

YYl:»WlM)(YYl4CnfVY«1.92/SC«i)) ; 

XI:«<(XXl-!48)lfSCflLD+XC7R; 

Y1:«<(YY1-90ISC»L04YCTR; 

«OUErO(XXl,YYl) ; 

PENCXOIKNONO ; 

XX2;«WU«<  (X12-XCTR) /SCALD  ♦  148; 
YY2;*«»iO((Y12-YCTR)/SCALD+?i; 

H(JWET0(XX2,YYD ; 

?ENCaOR<MHITD ; 

XX2:*I«nM)(XX24(T»«23l2.3/SCALD) ; 
YY2:*«aM)(YY2+(TWY2Xl.?2/SCALD) ; 

X2;»(  (XX2-148)  5ISCALD  4XCTR; 

Y2;=(  (YY2-96)  XSCALD  ♦YCTR; 

M0UET0(XX2,YYD; 

BENCOLORINOC ; 

3X:»<X1-XD  /  2.8; 

DY;*(Y1-YD  /  l.?2; 

SEARING:*  0EGREES(0X,8Y); 

SPEED<I»{,0Y,SP03) ; 

FOR  I:*  1  TO  3888  OO  BEGIN 
I:»I+1; 

END; 

END; 
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A  -  .  '  . 


PSCCEWJRE  J€SSA6£1: 


TDOMOOE;  TEXT:a  TRUE; 

GOTOXY(0,8);CST(Ei»SEOS); 

KJTQXY(9,4)  ; 

l*IRI7ELN('  Not  enough  data  to  coopute  CPA  '); 

!«nELN;WRITElW;WRITELN! 

WRITEIIK'  <  PRESS  RETURN  TO  CONTINUE  >  '); 

>  REAOLN; 

TFU«3;*FALSE; 

TFLA64;«  TRUE; 

£XIT(CPA) ; 

ENO; 

PROCEDURE  tCSSAGE2; 

BEGIN 

TEXTMGOE;  TEXT;*  TRUE; 

GOTtKYd,!)  ;CRT(EiMSEOS} ; 

GOTOCYd,^; 

WRITEUN'  The  tiM  to  CPA  trom  ',TAR6ET1,'  to  ',TAR6ET2/  is  ; 

MRITEIN; 

»«ITEU«'  ',R01M)(TI«),' MINUTES '); 

HRITEIN; 

NRITELNt'  The  range  and  bearing  ♦ron  ',T<«GET1,'  to  TARGETS; 
miTElNt'  at  that  tine  will  be  :  '); 

iitITELN; 

i«ITELN('  ',«UO(OIST),'  nilet  -  bearing  '.BEARING/  de^^ees  ') 

MRlTELNiMITEUtMlTEUi; 

HRITEW('  <  PRESS  RETURN  TO  CONTINUE  )  ') ; 

REAOIM; 

TFlA63:*fALSE; 

TFLAG4;«TRUE; 

END; 

PROCEDURE  MESSAGES; 

BEGIN 

TEXTMCOE;  TEXT:*  TRUE; 

30T0XY(8,8)  ;CRT(E5»SE0S) ; 
aJTOXYtS.d) ; 

WRITElNi'  Target  •  TARGET  1/  and  target  <1  '.TARGETS  ); 

KRITELN; 

HRITELNt'  have  oarallel  courses  with  the  sane  soeed  !  '); 
NRITELN;NRim;!;WRITELN; 

WRITELNt'  <  »RES3  RETURN  TO  CONTINUE  >  '); 

REAOIN: 

TFli«3:*FALSE; 

TaA64;*TRU£; 

EXITtCPA); 

ENO: 


BEGIN  (  CPA  ) 
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(I$ft  TUm.E6iM>HIC^) 

(I$R  TWNSBttX) 

OEM  T)€SIS8)E) 

IF  QiWiGeiOVE  <-  1  THEN  hCSSAGEl; 

GRtfNOOE;  TEXT;=«LSE; 
(3KSEr:*l'9'..'9','A'..'J','a'..'j']; 

B(KSTRING(3,2/  CPA:  LETTER  /  NEMER  OF  1ST  SHIP  ') 
TAR6ET1:>6ETCHAR<0KSET) ; 

IF  TARGETl  INI'9'..'9'3THEN  TYPEl  ELSE  TYPE2; 

OXl:=flXl  /  2.8; 

0Y1:»IJY1  /  1.92; 
i:CURSEl:^EGREES(I»(l,OYl) ; 

CUSh^OWSEl  X  P!  /  139; 

SPEED(OXl,OYl,SPDl} ; 

IMhsSPOl  X  SIN(CUSl); 

VY1:»9>01  I  COS(CUSl); 

B0KSTRIN6(3,2,'  CPA:  LETTER  /  MUSER  OF  2NO  SHIP  ') 
TAR^2:<<£TCHAR((»S£T) ; 

CLEARBOX; 

IF  TARGET2  INI'9'..'9']THEN  TYPE3  ELSE  TYPE4; 

1»(2:»(}X2  /  2.3; 

IIfY2:»(JY2  /  1.92; 

CaURSE2:^GREES(I}X2,DY2) ; 

CUS2:>CQURSE2  X  PI  /  189; 

SPEED(DX2,DY2,SP02) ; 

*;X2:>SPD2  X  SIN(CUS2); 

';Y2:«SPt)2  X  C0S(CUS2); 

DX:a(Xll  -  X12)  /  2.3; 

!JY:»(Y11  -  Yia  /  1.92; 

IM{:*WX1  -  'A2; 

IWY;»yYl  -  VY2; 

DEN0H:>  SWIOUX)  t  SGR(OW) : 

IF  OENON  >  9  THEN  NESSAGE3; 

T:»  -(WXDMX  ♦  DYXOW)  /  <SQR(IWO  ♦  SQR(OVY)); 

IF  T  <  9  THEN  T:=  0; 

CPAT:*  TINE  ♦  T; 

OiViNLINES; 

riESSAGE2; 

ENO; 

SEGMENT  PROCEDURE  !«WE«NT; 

’.Aft  CH:  CHAft; 

X,Y,TYHE.TARGET,NCUS,OT:  INTEGER; 

DIRECTION, COURSE, SPEED, liSPO:  REAL: 

NOTYET.TRACE:  SOOLEAN; 


PROCEDURE  DISPLAY; 
';AR  X,Y,J;  INTEGER; 
3EGIN 

INITTURTLE; 
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FOR  J:>!  TO  MAXBLUE  00  8E6IN 
X:s«Oifffi(  (Bern ,  J3-XCTR)/SCALD  ♦  1«; 
Y;*«01M)«B(Y[2,J]-YCTR)/SCAL£)*W! 

MOUETO(X,Y> ; 

0RMCLlXX(SHIPFIG,2,8,a,7,3,X,Y,  19) ; 

NUHeER(X,Y,J) ; 

END; 

FOR  J:»  1  TO  HWCORANK  DO  BEGIN 
X:=i«Mfa)(  (own  ,J]-XCTR) /SOLE) + 149 ; 

Y;aROlM)(  (IKYI2,  J]-YCTR)/SO)LD  *94; 

M«;ET0(X,Y)  ; 

DmH8L0CX(SHII>FIG,2,9,9,7,3,X,Y,3) ; 

LETTERIX.Y.J)  ; 

END; 

GRARKBE;  TEXT:^SE; 

END; 

PRimURE  NESSA6E1; 

BEGIN 

aEARBOX; 

6OTOKY(0,8);  CRT(ERASEOS) : 

G0TB(Y(9,4); 

MRITELN('  Not  enough  data  to  coooute  course  /  speed  '); 
MiITELN;HRITEl!4d«ITELN; 

MRITELNt'  <  PRESS  RETURN  TO  CONTINUE  >  ') ; 

TEXTMOOE;  TEXT:»TRUF! 

NOTYET;»TRUE; 

REAOIN; 

END; 


BRIKEDURt  GETTQT; 

•JM  TGT:  CHAR; 

BEGIN 

0KSET;»I'9'..'9'/A'..'J'/a'..'j']; 

BaXSTRING(3,2/  MOUEHENT:  (WE  WHICH  SHIP  (0-9/A-J)?  '); 
TST:*GETCHAR(OKSET) ; 

IF  (TGT  IN  ['A'./J'])  CR  (T3T  IN  ['a'.//])  THEN  BEGIN 
IF  ORANGENOUE  <«  1  THEN  MESStGEI; 

IF  CfMNGEfWE  <»  1  THEN  EXITIGETTCT) ; 

IF  TGT  IN  I'A'./J']  T€N  (ffARGET:=ORO(TGT)-ORO(  A')n  ELSE 
MTAfiGET;=CRO(TGD -OfiO( '  a')  ♦  1 ; 

(tFlA6;*TRUE; 

TFlA62;»fAL3E; 

EXIT((WENEND ; 

END; 

TARGET :»ORO(TGD  -  0RD('8O  ♦  1; 

END; 

PROCEDURE  3ETC0URSE; 

<JIAR  CUSLEN.CUS:  INTEt^R: 

BEGIN 

CtJSliN:»3: 


B0KSTR1N8(3,2,'  m«HENT:EKTER  DESIRED  COURSE  (8-360)  0; 
GEriNTE6ER(CUS,CUSLEN) ; 

UNTIL  (CUS  >  0)  (*0  (CUS  <>  368) ; 

)1CUS:>CUSs 

CajRSE:sd)S  il  PI  /  188; 

END: 

PROCEDURE  GETSPEED: 

(MR  SPOLEN.SPO:  INTEGB); 

BEGIN 

SP0LEN:»2; 

REPEAT 

30KSTRING(3,2,'  MIXCHENT:  ENTER  DESIRED  SPEED  (8-48)  '); 
GETINTE6ER(SP0,SP0iiN): 

INTIL  (SPO  >>  8)  PM)  (SPD  <>  48) ; 

NSPD:*SPO; 

SPEED;»SPO; 

END; 

PROCEDURE  GETTIHE; 

UAR  TIHELEN:  INTEGER; 

BEGIN 

TIM£L£N:=2; 

REPEAT 

B(KSTRING(3,2,'  MOlOfNT:  TIME  STEP  (8-W  IN  MINUTES  '); 
GE7INTEGER(TYME,TIMELEN); 

UNTIL  (TYME  >•  9)  PND  (TYIC  <»  99) ; 

END; 

PROCEDURE  TRACEIN; 

*;AR  TR:  CHAR; 

K6IN 

OKSET;«I'Y','v','N','n']; 

8flD(STRING(3,2,'  MOUEMENT:  DO  YOU  WISH  TRACE  ON  (Y/N)?  '); 
TR:^CHAR(OKSET  *  ICHR(]3)]); 

IF  (TR  »  'Y')  OR  (TR  »  'yO  T)«N  TRAC£:=TRUE  aSE  TRACE;*FALSE 
END; 

PROCEDURE  GET)(; 
m  XLEN:  INTEGER; 

X!:  REAL; 

8EGIN 

XL£N;=3; 

REPEAT 

B(KSTRING(3,2/M0UEMEMT;  DESIRED  X-COORDINATE  (8-108)?'); 
8ETINTEGER(X.XL£N); 

UNTIL  (X  >«  8)  fVR)  (X  <>  188) ; 

Xl;=  X  *  2.3; 

X1;«((X1-XCTR)/SCALD+I48; 

X:>R0UND(X1) ; 

END; 

PROCEDURE  GETY; 

'Mi  YLEN:  INTE^; 


Yl:  REAL; 

BEGIN 

YLEN:»3; 

REPEAT 

3(KSTRIN6(3,2/H0UEKENT:  DESIRED  Y-COQRO!NATE  (G-ISB)?'); 
GETINTEGERCY.YLEN) : 

UNTIL  (Y  >  8)  AM)  (Y  <>  188); 

Yl:»  Y  *  1.92; 

Y1:8((Y1-YCTR)/SCALE)*94; 

Y:>RaM)(Yl); 

END; 

PROCEDURE  RELOIR; 

UAR  OIRLEN.OIR:  INTEGER; 

BEGIN 

0IRLEN:>3; 

REPEAT 

S(S(STRING(3,2,'  NOUEHENT:  DESIRED  DIRECTION  (8-368)?  '); 
l£TINTEGER(DIR,OIRLEN) ; 

UNTIL  (DIR  >  8)  AN)  (DIR  <=  368) ; 

MCl^:4IR; 

OIRECTI(M:«  DIR  i  PI  /188; 

END; 

PROCEDURE  RELDIST; 

UAR  OISTLEN.OIST:  INTEGER; 

XD,YD:  REM.; 

BEGIN 

0ISTIiN:«3; 

REPEAT 

B(RSTRING(3,2/N0UE)CNT:DESIRED  DISTANCE  (8-388)  NILES'); 
l3ETINTEGER(OIST,OISTliN); 

UNTIL  (DIST  >  8)  AM)  (DIST  <»  388) ; 

IF  OELTAT  »  8  THEN  DT:*68  aSE  DT;=OELTAT; 
MSP0;*6SP0lTARGn]; 

XO:s  DIST  E  SIN(DIREaiQN) ; 

XD:>  )(D  I  2.38  /  SCALE; 

X:s  ROUNO(XO) ; 

YD:>  OIST  I  COS(OIREaiQN) ; 

Y0!=  yd  E  1.92  /  SCALE; 

Y;»  RO(IO(YO) ; 

END: 

PROCEDURE  DRAMFIG: 

BEGIN 

PENCOLOR(NONE} : 

|}IMMIL0CK(SHIPFI6,2,8,8,7,8,X,Y,18) ; 

NUCER(X,Y,TM)6ET) ; 

END: 

PROKDURE  NAKEOMKC  :  INTEGER;S  :  REAL) ; 
m  I:  INTEGER; 

ANS:  CHM; 

BEGIN 
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FOR  I:>1  TO  3088  00: 

TEXmOOE;  TEXT:*TRUE; 

SOTaxy(8,8);  CRT(EI»SEOS) ; 

60TODOr(8,3); 

MiITEU4('  YOU  mX.  PROPOSED  A  COURSE  it  SPEED  CHANGE  FOR  TARGET*  TARGE 
MRITEIN; 

MRITE1N('  ',C,'  DEGREES  ',ROUND(S),'  i^S  '); 

MRITELN; 

MRITELN('  DO  YOU  WISH  TO  HAKE  THIS  CHAMS  TO  THE  DATABASE  ?  (Y/N)  ') 
ANS:*GETCHAR(GKSET  >  [CHR(13)]); 

IF  ANS  IN  I'Y'j'y'l  THEN  BEGIN 
SCUS[7ARGET]:<IPI/188; 

GSPD[TMGET]:»S; 

END: 

END; 

PROCEDURE  HOUEl; 

•JAR  XD,YO:  REAL; 

INTEGER; 

BEGIN 

GRARWOE;  TEXT:*  FM.SE; 

QETT5T; 

IF  NOTYET  THEN  BEGIN 
NQTYET:*FALSE; 

EXIKMOUEl) ; 

EM); 

GETCOURSE; 

GETSPEED; 

QEm«: 

TRACEON; 

OJEMOOX; 

PENCOLOR(NGNE) ; 

B1  :*ROUNO(  (B)(Yn  .TM)GET3-xaR} /SCALD  *  148; 

32!*R(WC(  (BXYt2, TWWSEn-YCTR) /SCALD  ♦?<; 

H0UET0(B1,B2) ; 

(  do  oath  to  get  new  xy  ) 

IF  TRACE  THEN  PENCOLORINHITD ; 

XD:*  SPEED  /  o8  I  TYNE  if  SINtCOURSD  /  SCALE  X  2.3; 

X:*  ROURXXD) ; 

X;*X+81; 

YD;*  SPEED  /  48  X  TYME  X  COSICOURSO  /  SCALE  X  l.?2; 

Y;*  ROUNO(YO) ; 

Y:«YtB2; 

HOUETO(X,Y) ; 

0RPNFI6; 

HAKEaM>(NCUS,HSPD) ; 

END; 


PROCEDURE  HCUE2 


UAR  Bi,B2:  INTE6ER; 

DX,OY:  DEAL; 

BEGIN 

GRtfNGOE;  TEXT:*FALS£; 

GETTGT; 

IF  NOTYET  THEN  BEGIN 
•  NOnrET!»f«.SE; 

EXITCtKXO ; 

END; 

GETX; 

GETY; 

TRACEGN: 

aEARSOK; 

POCaORINONE) ; 

81  (Bern  ,TARGET]-XCTR)/SCALE) + 148 
82;=«01M)<(Beri2,TARGET3-Y(:TW/SCAL£)+96; 
MGMErO(Bl,B2); 

IF  TRACE  THEN  PENCQLaR<MHITD ; 

HOUETO(X,Y) ; 

OfMFIG; 

END; 


PHOCEDURE  H0UE3; 

UAR  S1,B2:  INTEGER; 

BEGIN 

GRARKBEj  TEXTr^ALSE; 

GETTGT; 

IF  NOIYET  THEN  BEGIN 
NOlYETs-FALSE; 

EXIT(M0(«3) ; 

EN): 

RELOIR: 

RELOIST; 

TRACE(M; 

OEARBQX; 

FENCOLtSKNOC) ; 

B1  ;»fl(HfB(  (8XYI 1  ,TAR6En-XCTR)/SCALO  ♦  148; 
82:»R01M)(  (BXY[2,TAHGET3-YCTR)/SO«i)  +96; 
H0UET0(B1,32) ; 

IF  trace  then  ,9ENCOLOR(MHITD  ; 

X:=X+fll; 

r;»y+B2; 

IWETO(X,Y) ; 

OiMfIG; 

HAKECIMG(MCUS,HSPD); 

EM); 


PROCEDURE  RESETFIAGS; 
BEGIN 

NOTYET:»fALSE; 
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TFb461:>FAL^; 

TFU»2:>  TRUE; 

IF  GRAFFU^  THEN 
BE6IN 
GRAFHGOE; 

6RAFFlA6:«i^ALSE; 

TEXT;««LSE; 

END 

ELSE  BEGIN 
TEXTMOOE; 

TE5(T;»TRUE; 

END; 

END; 

BEGIN  {  KVCMtit  } 

(ISR  TURTLEGRAFHICSI) 

()E$R  THESIS8I) 

(XIR  TiW^CENDX) 

RESETFIA6S; 

REPB^T 

0KSET!«I  'A' . .  'O' ,  'a' . . 'd' ,  'Q'  /q'  I ; 

GOTCD(r(S,B);  CRT(ERASEOS) : 

PROPTATCB,')  N(K/ENENTi  Visually  chuck  possible  positioAs  of  your  ships') 
GOr(S(Y(l,S); 

MR1TELN('  A)  HovflMfit  usinq  Course,  Speed,  Tiaw 
HRITELNC'  B)  your  unit  to  a  new  (X,Y)  position 

MIITELNt'  0  H(Ne  your  unit  relative  to  its  present  position  '); 

HRITELNt'  0)  Clear  pr^ious  ncaiwnts  fron  the  screen  '); 

MRITElNt'  0)  (Xiit  -  Exit  fran  this  procedure  '); 

NRITELN: 

NRITELNr  [<-]  Dounscale  disolay  '); 

MRITEIN('  [->]  Upscale  display  '); 

MtITELNt'Isoacel  Recenters  display '); 

/IRITELNt'  [ESC]  Toggles  disolay  between  text  and  graohics  '); 
CH:»GETCH(«<OKSET*  [CHR(27)  ,CHR(8)  ,CHR(21)  ,CHRt32)  ]) ; 

CfiT(EHASEOS) ; 

IF  CH«CHR(8)  THEN  CH;»'R';  (  left  arrow  >  reduce  scale  ) 

IF  CIWHR(21)  THEN  CH:*'!';  (  right  arrow  >  increase  scale  ) 

IF  (OCHR(27))  iW  (TEXT)  THEN  BEGIN 
GRAFNOCE: 

TEXT;*FALSE; 

CH:»'2'! 

EM) 

aSE  IF  (OKHR(27))  iWD  (NOT  TE)a)  TICN  BEGIN 
TEXTMOCE; 

TEXT!*TRUE; 

CH:«'Z'; 

END; 

CASE  CH  OF 
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OOWSCALE: 

BLFlAe:=TRUE; 

TFli»l:sTRUE; 

TFIAG2:*FM.SE; 

G(IT(mU01B(n ; 

EM); 

'I'  !  BEGIN 

UPS»LE; 

BLRAGi^TRUC; 

TFLA61:«TRUE; 

TFLMi2:^S; 

EXIT(H(K«ICNn ; 

END; 

'  '  :  BEGIN 

RCTRFLA6:-TRUE: 

GLFIA6:»TRUE; 

TFLA61;=TI«JE; 

TFb^:>FALSE; 

EXITIKQUEHENn ; 

END; 

END; 

WIL  CH  IN  I  'Q'/q'  ]; 

END; 

SEGKNT  PROCEDURE  N0UE2; 
m  X1.Y1,X2,Y2,0IST«NCE.SPEED.CUS,0X,0Y:  REAL: 
COURSE, 001, 002, TYNE:  INTEGER; 

TRACE:  mEAN; 

XX,YY:  REAL; 

PROCEDURE  OISTSPO(DX,DY:  REAL:UAR  OIST.3PO:  READ; 
BEGIN 

OIST:»  S(WT(SC«(DX)  ♦  3QR(DY)); 

SPO:*  OIST  /  DELTAT: 

END; 

P'JNCTION  OEGi£ES(DX.DY:  REMJ  :  INTEGER; 

CONST  ERR  »  a.ai; 

UAR  *M.UE:  INTEGER; 

BEGIN 

IF  (DX  <  (0+ERR))  AM)  (OX  >  (0-£RR))  THEN  BEGIN 
IF  (OY  <  (0+ERR))  .^0  (OY  )  (0-£RR))  THEN  DEGREES 
IF  DY  >  a  THEN  DEGREES  :«  188: 

IF  DY  <  9  THEN  DEGREES  :«  340; 

EXIT<OEGREES) : 


END; 

IF  (DY  <  (84ERR))  M)  (OY  )  <8-£RR))  THEN  BEGIN 
IF  IX(>  8  TffiN  DEGREES  :«  278; 

IF  OK  {  8  THEN  DEGREES  :>  898; 

EXIT(DEGREES); 

END; 

mUE  :>  ROINXISI  /  PI  X  ATPN  (OX/OY)); 

IF  AGS  (VALUE)  <>  VALUE  THEN  BEGIN 
IF  OX  <  8  THEN  OEGREES:»  188  *  VALUE; 

IF  OX  >  8  THEN  DEGREES:*  3^8  *  (MLUE; 

END 

aSE  BEGIN 

IF  DX  >  8  TICN  DEGREES:-  188  >  VALUE; 

IF  DX  <  8  THEN  DEGREES:-  VM.UE: 

END: 

END; 

PROIXDURE  GEHINE: 

VAR  TirCLEN:  INTEGER; 

BEGIN 

Tl«L)EN;-2; 

REPEAT 

BDKSrRING(3,2,'H0UENENT2:  TIME  STEP  (8-99)  IN  MINUTES'); 
GETINTEGER(TYME,TIMEL£N) ; 

UNTIL  (TYNE  >  8)  ««  (TYNE  <»  99) ; 

END; 

PROCEDURE  TRACEDN; 

VAR  TR:  CHAR; 

BEGIN 

OKSET:»['Y','v'/N','n'l; 

B(KSTRIN6(3,2,'M(WEMBfT2;  DO  YOU  WANT  TRACE  ON  (Y/N)?'); 
TR:-GETCHAR(OKSET  +  ICHRdS)]); 

IF  (TR  *  'Y')  OR  (TR  -'y')  THEN  TRACE:*TRIK  aSE  TRAC£;-fALSE 
END; 

PROCEDURE  NENPOSIT; 

VAR  HEi«(,.NENY:  REAL; 

BEGIN 

:(X:*(0KYI  1  ,MTAR6ET]-;<CTR)/SCAL£+  IRS ; 

YY:*(QXYC2  ,MTAR6ET)-YCTR) /SCAL£+9<S; 

NEW:-  XX  ♦  (SPEED  *  TYME  I  SINdlUS)  I  2.3  /  SCALD ; 

NENY:-  YY  *  (SPEED  J  TYME  *  COS(CUS)  I  1.92  /  SCALD; 
OOI.-ROINXNEW) ; 

•]02:-R0lN)(NENY) ; 

END; 

PROCEDURE  MOVEIT; 

BEGIN 

SfiAmOE;  TE)(T:-FALSE; 


aEARBQK; 

PENCOLCRCNONO : 

H0UET0(RaH>(XX)  ,R0tl€(YY)) ; 

IF  TMCE  TKEN  PENCaCRINHITO  ; 
raVErO(O0I,0O2) ; 

PENCa.OR(NQN0; 

0fWNBLOCK(SHIPFI6,2,8,8,7,8,OOl,(]O2,S 

LETTER(001,002,HrARGED; 

EM); 

BESIN  {  Mve2  } 

(X«R  TURTLEGRAPHICSE) 

(ISR  T)€S1SS» 

(1»R  TMNSCENOI) 

GMFMOOE;  TEXr:«FALSE; 

M1Fi;)6:>fALSE; 

TFlA6l!»TRUE; 

Xl:saD(9(y[!,!frAR6CT]; 

Yl;=aO(KYI2,MTARaT]; 

X2:«(Kyil,ffr/«GET3; 

Y2;=<KYr2,MTAfiGETl; 

K(;s<Xl  -  X2)  /  2.8; 

!>Y;»<Y1  -  Y2)  /  l.?2; 

COURSE :«OE6REES(DX,OY) ; 

CUS:>  COURSE  I  PI  /  188; 
OlSTSro<OX,aY,OISTPHCE,SPffi» ; 
GEHIME; 

TRACECN; 

NEMPOSIT; 

MWEIT; 

END;  (  imv«2  } 

SEOEHT  PROCEDURE  RECENTER; 

PROCEDURE  RCTRMRT: 

CtUST  XO«148; 

Y094; 

MAR  J,BX,aY,(]X,0Y:  INTEGER; 

RCENTR:  CHAR; 

PROCEDURE  CASEA; 

BEGIN 

J:aORO(RC£NTR)-flRD.'8') ; 

J:»-J+l; 

BX:«R0IN)(  (BCYI 1  ,J}<X0 /SCALD  *XC; 
3Y!»R0UN0( (BXY[2,J]-YO /SCALE) ♦YC; 
XCTR:>ROUND(BXYn,J]) ; 
YCTR:>R0iN)(S(Y[2,J]) ; 

END; 

PROCEDURE  CASES; 


IF  RCENTR  IN  TUN  J:*flRO(RC£NTR)-flro('A') 

aSE  J:«0R0<RCENTR)-0R0('4'); 

QK:«flOUI>(  (QKYI 1 ,  JI-XD/SCALE)  tXC; 

OY  ;>fflXN)(  ((S(YI2,J1-YD /SCALE)  «YC,‘ 
XCTR:«AOlM)(GKYn,J]); 

YCTR:»flaM)(0KY[2,J]}; 

END; 

BEGIN  {  rKenter  ) 

(XM  THESIS8«) 

TURTLEGRAPHICSI) 

RCTRFIA6:«FALSE; 

BLFLA6:»TRUE: 

6RAFH00E;  TEXT:sFALSE; 

IF  (HAXOWNGE  >  •)  AND  (MAXaUE  >  9)  THEN  K6IN 
0KSET:«t '8' . . '9' , 'A' . . ' J' , j ' ] ; 
S]XSTRING(3,2/  RECENTER  ON  WICH  SHIP  <8-9/A-J)? 
RCENTR:>GETCHAR(OKSED ; 

IF  RCENTR  IN  ['8'..'9']  THEN  CASEA  aSE  CASES; 

END; 

IF  (NAXBLUE  »  8)  THEN 
BEGIN 

(]KSET:aI'8'..'9']; 

BaXSrRIN6<3,2,'  RECENTER  ON  WHICH  SHIP  (8-9)? 
RCENn(:«8ETCHAR((]KSET); 

CASES; 

END: 

IF  (HAXOMNGE  >  8)  THEN 
BEGIN 

0KSET:«t'8'..'9']; 

BGKSTRIN6(3,2,'  RECENTER  ON  MHICH  SHIP  (8-9)? 
RCENrR:>GETCHAR((]KSET} ; 

CASB^; 

END: 

iNITTDRTLE; 

IF  NAXaUE  >  8  THEN  BEGIN 
=OR  J:«l  TO  NAXaUE  DO  BEGIN 
3X:»R(M«(  (BXYI 1 ,  J]-XCTS)/SCAL£)  +XC; 

3Y:««0IH)<  (BDCYI2,J]-YCTR) /SCALE)  ♦YC; 
DIW«.aCX(SHIPFIG,2.8,8,7,3,aX,BY,lB) : 
NinER(GX,3Y,J) 

END; 

END; 

IF  NAXORPNGE  >  8  THEN  BEGIN 
FOR  J:«I  TO  HAXQRPN6E  00  BEGIN 
(K:«RaH)<  ((KYI  1  ,J]-XCTR) /SCALD +XC; 

0Y;=R01M)(  ((KY[2,J]-YCTR) /SCALD  ♦YC; 
!)fMaOCX(SHIPFI6.2.8.a.7.3,aX,OY.5) ; 


L£TTER<OX,01f,J) 

END; 

END; 

END; 

PROCEDURE  RERWPMT; 
m  J:  INTEGER; 

TESmUE:  REAL: 

PROCEDURE  START0RAN6E; 

BEGIN 

J:=l; 

TESIVALUEzM; 

RESET(ORNHIST,  'f4:ORNGOLO.aATA') ; 

MHILE  (NOT  EQF(ORNHISn)  PMO  (TESTVW.UE  >  -999)  iWD  (J  !8)  DO  BEGIN 
a)Cril,Jl:=fllWHIST*; 

GETCORNHISD; 

(DCr[2,Jl:>0iNiIST*; 

GETCOfWHISn; 

TESTVALUEr-OIMtlST*; 

HAXOIMNeE:>J  -  1; 

END; 

END; 

PROCEDURE  STARTBLUE; 

BEGIN 

Js»l; 

TESTVALUE:»«; 

RESniBLUHIST,  'MtSLUEOLO.DATA') : 

NHILE  (NOT  £OF(BLUHISD)  AND  (TESTWLUE  >  -999)  AND  (J  <»  18)  DO  BEGIN 
aXYn,Jl:«flLUHIST*; 

GETIBLUHISDj 

a5rfI2,J];»6LUHIST*; 

GET(GLUHISr) ; 

TESrAlUE;=8H«IST''; 
m)(BLUE:*J  -  1: 

END; 

END; 

PROCEDURE  RE3ETFW6S: 

BEGIN 

CONTINUE  :*PALSE: 

I)BCALliO:«FALSE; 

CASElr-FALSE; 

TFLA01:«f«.S£; 

TFU»2!«FALSE; 

TFLA63:»PALSE; 

TFW64:«FALSE; 


TFIAG5:*FALSE; 

TFLA66:>fALSE; 

TEXr;«TRUE; 

END; 

BE6IN  (  RERUN  ) 

TESmUE:=i; 

RRFLiW:*TRUE; 

RESETFLAGS; 

CGNTINUErsTRUE; 

3LrU«:=TRUE; 

NAXC!WN6E:=R; 

GRFNGEHaUE:»4; 

BLUEHOVE:^; 

3CAL£:»1; 

INITTURTLE;  TEX7MOOE; 
aQSE(BLtiHiST,LOCX) ; 
aOS£(ORNHlST,LOCK) ; 
STARTORANGE: 

ORANKMOUE:«()RANGEHOUE  >  1; 
3TARTBLUE; 

3LUEM0UE:«GLUEmUE  *  1; 
RESCT(ATIM£,  'MtTIME.MTA') 
TIME:»ATIME*; 

END;  (  rerun  ) 


BEGIN  (  CASE  } 

IF  RCTRFLA6  T«N  RCTFPART; 

IF  CASEl  T>CN  RERUNPART; 

END: 

SEGNENT  PROCEDURE  BOTTOIINE; 
•.AR  SCDIST:  REAL: 

XT,}<C,YC;  INTEGER; 

STINE, SXCTR,SYCTR;  STRING; 

PROCEDURE  HEACER; 

BEGIN 

(»R  TURTLEGRAPHICSIf) 

3RAFNCOE:  "EXT:=FAL3E; 
3LFLAG:*FAL3E; 
GRAFFIAG:=TRUE; 
PENCOLOR(NONE) ; 
N0UET0(8,:84); 

HSTRING(' 

?10VET0(9,I84); 
PENCOLOR(NHITD ; 
MWETOlBjiW! 

M0UET0(8,187); 

3COIS7;a  i8/SCALEJ2.72; 


XT;=«aH)(SCOISD ; 

?WET0(XT,187); 

M0VET0()(T,19fl); 

HOUETO(XT,184); 

PQCOLOR(NONE} ; 

M(WET0(XT+7,182); 

HSTRIH6(':  18  Ml  '); 

XC:«RajN0(XCTR/2.8) ; 

YC;s«aJND(YCTR/I.92) ; 

STR<XC.SXCTR) ; 

STR(YC,SYCTR) ; 

!4STR!NG(SXCTR)  ;«STRING('  />  ;WTRIN6(SYI:TR)  ; 
iieTRIN6(';  CTR  '); 

HSTRING('  TIHE:  '); 

STR(TIME,STIM0 ; 

WSTRIN6(STIH0 ; 

EM); 

PROCEDURE  INTERCEPT; 

•JAR  TGT,TGT2,CUS1,DT,3TLEN,ICUS:  INTEGER; 

T1,T2:  CHAR; 

COURSE!, 3PEED1,W(1,VY1,X,Y, IX, IY,OIX,DIY,ISPO, 0X1, DY1,X2,Y2:  REAL; 
PROCEDURE  TYPEKT;  CHAR;  m  OX,OY:  REAU ; 

'JAR  XI, Yl;  REAL; 

8E6IN 

TST;«0RD<T)“0RD('8'>M; 

Xl:=0LI)BXYn,TGT]/2.8; 

Yl;=aDBXYI2,TGT3/1.92; 

X2;=flXYn,TGT3/2.S; 

Y2:=8XYI2,TGT1/1.?2; 

0X;=(X1-X2); 

3Y;=(Y1-Y2) ; 

END; 

PROCEDURE  TYPE2<T;  CHAR;  'JAR  OX,DY:  .REAL); 

'-•AR  XI, Yl;  f?EAL; 

3EGIN 

IF  T  IN  THEN  TGT;=CR0(T)-0R0('J')  +  1  ELSE  TGT:=CRD(T)-0R0('A''>  +  1; 

Xl;=0LD0XY[l,TQT]/2.3; 

Yl;»aD(KYl2.:QT3/!.?2; 

:<2;=0XYtl,TGT:/2.3; 

Y2;»0XYI2,TGT]/1.?2; 

:X;*;Xl-:<2) ; 

0Y;*(Y1-Y2) ; 

END; 

FlfCTION  0EGREES(DX,DY;  REAU  ;  INTEGER; 

CONST  ERR  3  0.31; 

'JAR  'JALUE;  INTEGER; 

BEGIN 

IF  (DX  <  (8+ERR))  tW)  (OX  >  (8-ERR))  THEN  3EGIN 
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IP  <0Y  <  (e*ERR))  M>  (OY  >  (9-CRR))  THEN  DEGREES  :>  9; 

IF  OY  )  9  THEN  DEGREES  :>  181; 

IF  OY  <  9  T)€N  DEGREES  :«  3M; 

EXIT(DEGREES); 

90; 

IF  (OY  <  (94ERR))  AND  (OY  >  (8-ERR))  THEN  BEGIN 
IF  OX  >  9  THEN  OEGRIES  :«  271; 

IF  OX  <  8  THa4  DEGREES  :>  898; 

EXmOEGREES); 

END; 

UHUE  :*  ROttOdSG  /  PI  X  ATAN  (DK/DY)); 

IF  AGS  (VALUE)  <>  VALUE  THB<  3E6IN 
IF  OX  <  8  TICN  DEGREES.**  188  *  <JIM.UE: 

IF  OX  >  8  THEN  DEGREES:*  3A8  «  VM.UE; 

EM) 

aSE  BEGIN 

IF  OX  }  8  iHEN  OEGRES:*  188  *  VALUE; 

IF  OX  <  8  T)€N  DEGREES:*  VALUE; 

E»; 

«5 

iOCEOURE  !CSS«E; 

8E6IN 

GaTtD(Y(8,8);(3{T(ERASE0S); 

6OT(S(Y(8,3>; 

TEXIMODE;  TEXT:*TRUE; 

MRITELN('  NOT  ENOUGH  DATA  TO  (XMPUTE  INTERCEPTS  AT  THIS  TIK  '); 

MRITELN; 

MRITEIN('  <  PRESS  RETURN  TO  CONTINUE  >');  iSAOlN; 

ExmeorroniNE); 

0; 

iOGEDURE  HES8AGE2; 

[GIN 

SGTGD(Y(8,8);CRT(ERASE0S); 

G0T0XY(8,3); 

TEXTMQOE;  TEXT.*«TRUE; 

HRITELNC'  INTERCEPT;  TIC  COURSE  AN)  SPEED  REQUIRED  FOR  UNITS  ',T2); 
MRITEIH('  TO  INTERCEPT  UNIT#  -  Jl,'  IS;  '); 

HRITEIN; 

MiITElN('  ICUS/  DEGREES  AT  '.ROUN)(ISPD) iOOTS  '); 

HRITELN; 

WRITELN('  00  YOU  NANT  TO  HAKE  THIS  CHANGE  TO  THE  DATABASE?  (Y/TO ') 

OKSET:*I'Y',y,'N','n']; 

T1:*GETCHMI(0KSET  4  [CHR(13)1); 

IF  T1  IN  ['Y'.y}  THEN  BEGIN 
GCUS[TGT2];*ICU^PI/188; 

6SPDITGT2]:*ISP0; 

M»TEIN('  CHANGE  HAS  BEEN  HADE  1  '); 


I«ITEU4(' 

END; 

END; 


PRESS  RETUM  TO  CONTINUE 


BE6IN 

(X$R  TTCSISH) 

(ilR  TRM<SCa«») 

(]»R  TURTLEGMPHICSI) 

ICPTFUe:«FMiE; 

BLFU«:«mLSE; 

IF  (SLUENOUE  <>  1)  OR  (TIME  «  8)  THEN  HESSA6E; 

GMFNODE;  7EXT:aFM.SE; 

0TLEN:-3; 

3IKSTRIN6(3,2,'ICFr:LETTER/MlflER  OF  UNIT  TO  INTERCEPT'); 
Tl:»fXTCHM(OKSET) ; 

IF  T1  IN  I'D'..'?']  TKN  TYPE1(T1,OX1,OY1)  ELSE  TYPE2(T1,DX1,DV1) 
CUSlr4EGREES(Q)(l,Oyi); 

COURShmuSl  X  PI  /  181; 

SPEEDl:=SflRT(SQR(DXl)>SflR(Oyi))/OELTAT; 

UX1:>SPEED»SIN(C0URSE1); 

Wl:*SPEEO»COS<COURSEl); 

OKSET  '9']; 

»S(STRIN6(3,2,'  ICPTMMER  OF  HMCUUERINO  UNIT  (8-9)  '); 
T2:><iETCiMi(0KSET); 

T6n:«0RD<T2)-(»D('8')M; 

X:>acr(l,T6T21/2.8; 

Y:«flXYl2,T(JT23/1.92; 

REPEAT 

8CKSTRING(3,2/ICPT:  DESIRED  TIIC  TO  INTERCEPT  (8-999)0; 
GETINTE6ER(OT,OTLEN); 

UNTIKDT  >  8)  AND  (OT  <»  999); 

CLEARSOX; 

IX;*(VXllOT)+)(2; 

IY;»(VY«DT)+Y2; 

OIX;»X-IX; 

OIY;^-IY; 

ICUS:>OEGREES(DIX,OIY) ; 

ISPO:*S(»T(SQR(OIX}*SflR(OIY))/OTXtf8; 

MESS«E2; 

END; 

BE6IN  (  blint  ) 

IF  ICPTFUW  TKN  INTERCEPT; 

IF  BLFLA6  TNB(  HEMER: 


SEGMENT  PROCEDURE  TMAFINIT 
m  GFIA6,GFIAG1:  CHAR; 
L£UEL8:  SETOFCHAR: 


I 


1 1 1) 


[I 


HISC:  FILE  OF  INTEOER; 

PROCEDURE  PREFINlSHj 
BEGIN 

CKSEr;*I'Y','y','N'/n']5 

<iOnB(Y(l,l>;CRr(EIMSEOS); 

MRITELN; 

NRITELN('  NEHORY  MAILABLE  IN  MQROS:  '.NENMAIU; 

MRITELN; 

NRITEIN('  NOTION  ANM.YSIS  PROGMH  GPTKMS  :  0; 

MRITELN; 

MRITELN! '  00  YOU  MISH  TO  CONTINUE  THIS  SME  LATER  (Y/fO?  ') ; 
NRITELN;MRITELN; 

MIITE!'  ');  GFLA61:>GETCHAR(QKSEr4(C>II<13>]); 

CRTIERASEOS);  CRTIERASEOS) ; 

IF  GFIA61  IN  I'Y'/y'I  THEN  SAUEFIAG:>TRUC  ELSE  9WEFLA6:>FALSE 
END;  (  PREFINISH  } 

PROCEDURE  START; 

BEGIN 

SOr(KY(l,»;CRT(ERASEOS}; 

MRITELN; 

MUTELN!'  NENQRY  AUAILABLE  IN  MORDS:  '.MEHAUAIU; 

MRITELN; 

MIITEUK'  NOTION  ANALYSIS  PROGRAN  OPTKNS  :  '); 

MRITELN!'  '); 

MRITELN!'  B  Notion  Analysis  ProRTW'); 

MRITELN!'  1  Rtnm  Notion  Analysis  Progr«') ; 

MRITELN!'  2  Build  or  Modify  Data  Base'); 

MRITELN!'  3  Tarainat*  Progra'); 

MtITELN; 

MIITE!'  ');  GFIA6:>GETCHAR!LEUELI): 

CRr!ERASEOS);  CRr!ERASEOS) 

90:  (  START  } 


PROCEDURE  SAUIT; 

‘JAR  I, J: INTEGER; 

BEGIN 

AMITEIBNON,  '4S:aL01.0ATA'); 
FOR  J:>1  TO  NAX8LUE  90  BEGIN 
8N0r:-«Y(l,J];  PUTIORM; 
aNar:^I2,J];  PUTIBNOO; 
aNOr:«GCUS(J];  PUT!BNOH); 
9IOr:«GSPO(J];  PUT!B«N>; 
90; 

CLGSE!ENflN,LOaO; 

REMtlTEIBOLO,  't9>0LO2.0ATA'); 
FOR  J:«l  TO  NAX8LUE  OO  BEGIN 


vv 


BGU)*:-CLI)B(yil,J];  PUTCBGLO); 
BQLD*:<(]L0GKyE2,J];  PUT(BOLO); 

END; 

CLOSEEBOLOyUlCK); 

RENRITE((MM,  'I5:OU3.CATAO ; 

FOR  J:«l  TO  HWOMNGE  DO  SE81N 
•  PUTEONM; 

QNQr:-CDCri2,J];  PUTdMQH); 

END; 

aOSE(a«M,U)CK); 

REWiITE(aiD,  'l5:flL04.DATA'); 

FOR  J;sl  TO  mXORANOE  00  BEGIN 
00L3*:>(]L1)(MY[1,J];  PUTIOOLO); 
GOLO*!=OLOO{Yt2,J];  FUT(OflLD); 

END; 

aOSE<QflLO,LOCtO; 

RENRITEIHISC,  'tS:0LD9.0ATAO ; 

HISC*:*TIHE;  PUTIHISO; 

NISC*:-a.umUE;  PUTIHISO; 
mSC*:>(]R(lNGB10UE;  PUTIHISC); 
aOSEIHISC.LOCX); 

END; 

BEGIN  (  TNAf  INIT  ) 
aosE(ajMsr,Loao; 
aOSE(BLUGMC,LOC»; 

CL0SE(0M<ISr,L0CX}; 

aOSE(OR«IIC,LOCIO; 

aOSE<ATIHE,L()CiO; 

L£VELI:»I'l','r,'2','3'3; 

QUITFIA6:«FALSE; 

RRFlA6:«fALSE; 

STMIT; 

CASE  6FLA6  OF 

;  CASE0;»TRUE; 

'V  :  CASE1:«TRIIE; 

'V  :  CASE2:*TRUE; 

END;  (  CASE  } 

IF  GFLA6  3  '3'  TH04  BEGIN 
PREFINISH; 

IF  3A0EFIA6  THEN  OMIT; 

ST0PFIA6:«TRUE; 

act 

END;  {  TNf^INIT  ) 

<mH) 

IMIT  GETCRT;  INTRINSIC  CODE  23  DATA  24; 

INTERFACE 

TYPE  CRTCIII1(M^(E!»SE0S,£RASE0L,IF,0(»«,RIGHT^ 
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SETOFCHMKET  OF  CHM; 

m  CRTINFOi  MCXEO  MmyiCRTCaWINO]  OF  CHM; 
PISFIXED:  MMYICRTCtNIMO]  OF  BOOliM; 

F:FILE; 

PROCEDURE  GETCRTIlfO; 

PROCEDURE  CRr(C  :  CRTCflNIPND); 

PROCEDURE  PR0»fTAT(Y:  INTEGER;  S:  STRING); 

PUCTION  GETCHM(GKSET:  SETOFCHM):  CHM: 

PROCEDURE  GETSTRINGIUM  St  STRING;  NMLEN:  INTEGER); 
PROCEDURE  8ETINTEGER  (UM  NUMR,L£N  :  INTEGER); 

INPli?fNTATION 

CONST 

BS>  8; 

SPACE  >  32; 

CR  >  13; 

UM  SUFFER:  PACKED  ARRAYI8..S111  OF  CHM; 

I, BYTE:  INTEGER; 

CH:  CHM; 

GOOD:  BOOLEAN; 

SltSTRINGIll; 

STENP:  STRINGIGOI; 

POSITION:  INTEGER; 

CHARRAY:  ARRNYn..llI  OF  CHM; 

REMMTEGER:  INTEGER; 

0I6nS,0K8ET:  SET  OF  CHM; 

QLOMR:  INTEGER; 

OLD:  BOOLEAN; 


PROCEDURE  GETCRTINFO; 

{ 

(  READ  SYSTBIJIISCINFO  MO  GET  CRT  CONTROL  CHARACTER  INFO 
( 

BEGIN 

RESETIF, '  JSYSTEN.mSCINFO')  ; 

I :«eLGCKREAO(F, BUFFER,]); 

CLOSE(F); 

3YTE;«0R0(BUFFSRI72]);  (  PREFIX  INFOWATION  BYTE  ) 
CRTINF0(LGA0IN]:>flUFFER(d2];  PREFIXEOCLEAOIN}:>FALSE: 
CR7Iir0tERASE0S]:«8UFFERC641;  PREFIXEDIERASEOS1:>OOD(BYTE  OIV  3) 
CRTINFO[ERASEOL1:-GUFFER(4S];  PREFIXEDIERASEOLIs-OOOIBYTE  DIO  4) 
CRTINFOIRIGNTI  :>8UFFER[44} ;  PREFIXEOIRIGHTI  t^OOOIBYTE  OIV  2) : 
CRTINFOIUP]  :>8UFFERU71 ;  PREFIXEDIUPl  :>ODO(SYTE} ; 

CRTOf OILEFTl  fGUFFERIAGI ;  PREFIXEOILEFT]  t-CODIBYTE  OIV  32) ; 

CRTIlfOIDOM]  :«CHR(  If) ;  PREFIXEDIDOM]  :*FALS£; 

END; 

PROCEDURE  CRT; 


{ 

(  CRT  CtmiNDS  ME  :  ERASE0S,EmSEQL,UP,CaM,RI6HT,LEFr. 
{ 

BEGIN 

IF  PREFIXEDIC]  THEN  (l4I1NRrrE(l,CRril#0ILEA0IN],l,a,l2); 
WIINRITEC^CRTINFOIC]  ,1,1, 12) ; 

EW; 

PROCEDURE  PROIPTAT; 

BEGIN 

30T(BCr(l,Y)  ;MtITE<S)  ;CRr(ERftSEaj ; 

END; 


FlICriGN  GETCHM; 

{  > 

(  GET  A  CHARACTER,  BEEP  IF  NOT  IN  QKSET,  ECHO  ONLY  IF  PRINTING  ) 
{  ) 

BEGIN 
REPEAT 

REAO(KEYBQARO,CH); 

IF  EOLNIKEYBQARO)  THEN  CH:«CHR(13); 

GOOO:«  CH  IN  OXSET; 

IF  NOT  GOOD  THEN  WITECCHRIT)) 
aSE  IF  CH  IN  I'  THQ<  NRITE(CH); 

IKTIL  GOOD; 

GETCHAR:>CH; 

END; 


PROCEDURE  GETSTRIN6; 

{  } 

(  (XT  MO  EOfl  A  STRING  UP  TO  NAXLEN  CHARS  LONG.  } 

C  IF  NULL  STRING  ENTERED,  DEFAULT  AND  PRINT  PREVIOUS  VALUE.  > 

(  ) 

BEGIN 

(JKSET:«t' 

SI:*' 

STEHP:*"! 

FOR  FOSITIGN  :«  1  TO  NAXLEN  DO 
MRITEIV); 

POSITION  :>  1; 

FOR  POSITION  :«  1  TO  NAXLEN  DO 
MITE(CHR<BS»; 

POSITION  :«t; 

REPEAT 

IF  LENGTNIST^  «  3  THEN  S1I1]:>6ETCHM(0KSET  *  ICHRdS)}) 
aSE  IF  LEMrrH(STENP)-NAXL£N  THEN  S1[!]:*GETCHAR([CHR(13) , CHRIS) ]) 
aSE  31111:«GETCHM(0KSET  *  ICHRC 13)  ,CHR(8») ; 

IF  sun  IN  QKSET  THEN  STW:«CONCAT(STeiP,Sl) 


ELSE  IF  S1I1]*CHR<8>  DCN 
BEGIN 

CST(LEFD;  WITEIV);  CRTILEFD 
CELETE(STENP,liNSTH(STB« ,  1) ; 
P-); 

IHni  sun  «  CHR(23); 

IF  liN6TH(SrDr)  O  i  THEN  S:«ST91P 
ELSE  MRITE(S); 

EW; 


PROCEDURE  GETINTEGER; 

BEGIN 

OLD  :»  FALSE; 

QUMBR:aNlfffi; 

0IGITS:»I'«'..'9M; 

FOR  POSITION  :*  1  TO  LEN  DO 
WRITE('_'); 

FOR  POSITION  :>  1  TO  LEN  DO 
MIITE(CHR(BS)); 

POSITKM  :«  1; 

WILE  POSITION  >  1  DO 
BEGIN 

REM>(KEYSQARO,CHARRAYCPOSITION]) ; 
IFICHARRAYin  IN  CCHRISPACE)  ,ChR(CR)  ])  THEN 
BEGIN 

MMR  i*  OLONBR; 

NRITElMIfiR); 

OLD  :«  TRUE; 

POSniON  POSITIQN+1; 

END 
ELSE 

!F(CHMRAY[n  IN  DIGITS)  TtCN 
BEGIN 

NRITE(XEYBQARO,CHARRAYIPOSITION]) ; 
POSITI(W;»POSITI(W  ♦  1; 

END 
ELS 

«ITE(CHR(7)) ; 

END; 

IF  NOT  OLD  THEN 
BEGIN 

WILE  POSITION(>LEN  DO 
C6IN 

REAO(i<EYBQMD,CHMHWY(POSITION]} ; 

IF  (CNARRAYIPOSITIONI  IN  DIGITS)  THEN 
K6IN 

WITEICNARMYIPOSITION]); 

POSITION  ;«  POSITIW  ♦  1; 

E» 

ELS  IF  CHARRAYIPQSniON)  »  CHR(8S)  TSN 


IF  POSITION  >  1  THEN 
8E8IN 

NR1TE(CHR(BS)); 

HRITE('-') ; 

MRITE(Q8i(8S)) ; 

POSITION  :>  POSITION  -  I 
END; 

IF  POSITION  <«  1  THBI  POSITION  :>  1; 

END 

ELSE 

8E6IN 

IF  (OMMYIPOSITION]  IN  ICHRISPACD  ,CHI(CR)  1)  TtCN 
POSITiaN:*La  ♦  1 
ELSE 

NRITE<CNfl(7)) 

END;  (  begin  } 

END  (  i^-th«B-eIse  ) 

END; 

!IEM)INTE6ER:-«: 

FOR  POSmONfi  TO  LEN  00 
BEGIN 

IF  (CHMHMYIPOSITIONl  IN  DIGITS)  THEN 
i^INrEGER:*18«i»OINTEGE!H(»O(CHMRAY[POSITI0N])-flRD('9'^ 
EIO; 

IF  OLD  THB«  Ntl«R:«OU]NBR  aSE 
NIMR.*«f»ttINTEGER; 

BO; 

BEGIN 

BO. 

(»S4« 

IMH  TICSISI;  INTRINSIC  CODE  29  DATA  26; 

INTERFACE 

USES  TURTLEGRAFNICS; 


SHIPFIGt  PACKED  ARRAY!  1.. 8,1.. 71  OF  BOOLEAN; 
BKY.OKY:  PACKED  ARRAY!  1..2,1..  181  OF  REAL; 
SCALE:  REM.; 

;<aR,rCTR,HM(aUE,HW(0IVIN6E:  INTEGER; 

PROCEDURE  NllflER(X,Y,J:  INTEGER)  ; 

PROCEDURE  L£TTER(X,Y,J:  INTEGER); 

PROCEDURE  B0KSTRIN6(X,Y:  INTEGER;  S:  STRING); 
PROCEDURE  CLEARBOK; 

PROCEDURE  OOWSCALE; 

PROCEDURE  UPSCALE: 


IKPLEHBffATIGN 


CONST 

XC  >  148; 
YC  »  Hi 


m 

UALUE:  INTEGER; 

MI1,XT,YT:  INTEGER; 

*iM.:  CHAR; 

a(,3Y,OX,OY,J:  INTEGER; 
L,R,B,7:  INTEGER; 

PROCEDURE  MONGER: 

BEGIN 
NUK!>J-1; 

XTs^-3; 

YT:«Y-9; 

}WETO(XT,YT); 
<JM.:«CMl(N0H*0R0('8O) ; 

END; 

PROCEDURE  LETTER; 

BEGIN 

XT;»X-3; 

YT;»Y-9; 

(KWETOIXTjYD ; 
VAL;»CHR(NUHORO('A')); 
MCHMKWU; 

END; 

PROCEDURE  80KSTRIN6; 

BEGIN 

PENCOLORINQC)  ;(10Ver0(X,Y) ; 
L;»X-3;  R:»Xt2*7IL£NGTH(S) ; 
3:«Y-2;  T;»Y+19; 
ViarORT(L,R,a,T); 
PILLSCREENCBIACX} ; 
UIENP0RT(8,2?9,8,191); 
PSNCOLOR(NONE>;  M0UET0(L,8); 
PENCOLOR(HHITE);  NOUETO(L,T); 
NOUrO(R,T)  ;MOUETO(R,B)  ;nOUETO(L. 
PENCOLORINONE) ;  K0UET0(Lt3,Bt2) ; 
MSTRING(S): 


n  ft  lOTtT*. 


L:»f;  R:«S  «  7  I  41;  T:>12; 
UIEW0RT(L,R,8,T); 

FILLSCREEN(BIM20; 

VIEM>«T(8, 279,8,191); 

mCEDdC  OOMSOVi; 

E6IN 

S»LE:*SCMi  /  2; 

INITTURTLE; 

PBCXORINQNO; 

IF  HmBLUE  >  0  THEN  BEGIN 
FOR  J.««  1  TO  NN(BLUE  DO  8E6IN 
8K:*ROUNO(  (BKYt  1 ,  J]-XCTR)/SCALD  *XC; 
BY:»ROIMO«8XY(2,  Jl-YCTR)  /SCALE)  nC; 
0WN8L0CX(SHIPFI8,2,R,8,7,3,flX,BY,18} 
N(lflER<8X,BT,J); 

END; 

END; 

IF  NmOMNGE  >  t  THEN  8EGIN 
FOR  J:>  1  TO  HAMSMNGE  00  BEGIN 
aX:>ROUI)(  (OKYI 1 ,  J]-)(CTR)/SCALD  4XC; 
8yHi0lftt<  (OKr[2,J]~YCTR)/SCALO  tYC; 
DMML0CX(SHIPFI8,2,l,8,7,8,(K,0y,S ; 
LErrER((B(,aY,J); 

E»; 

E»: 

»; 

ROCEDURE  UPSCALE; 

E6IN 

SCMJE:«SCALE  i  2; 

INITTURTLE; 

PENCOLGRINOe; 

IF  tWQLUE  }  8  THEN  BEGIN 
FOR  J>>  1  TO  HAXBLUE  DO  BEGIN 
SKi>ROUND(  (BKYI 1 ,  J]-)(CTR)/SON.E)  4XC; 
3y:-ROUNO«a(Yr2,J]-YC:fi)/SONi)+YC; 
0fMNBL0CX(SHIPFI6,2,8,8,7,8,8P(,ST,lS) 
NUMeER(BX,3T,J); 

END; 

S«; 

IF  NAXORANGE  >  8  THEN  BEGIN  . 

FOR  J:«  1  TO  NAXORPNGE  00  BEGIN 
(K:>ROUND(  (QKYI 1 ,  J]-XCTR)/snLE)  tXC; 
or  j*Rfl««(  (0){n2,JI-YCTR)/SCALE)  tYC; 
3RMLOCK(SHIPFI6,2,8,8,7,3,OK,Or,9) ; 
L£TTER((K,Or,J) ; 
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